Yikes, my bad. I meant to type: Range("F6").Value = Date

Given this: 
Range("F6:G6").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
I believe you have cells F6 and G6 merged; correct?