If you simply want the date and time etc in the activecell

Sub StampNow()
ActiveCell.Value = Now()
ActiveCell.Copy
ActiveCell.PasteSpecial (xlPasteValues)
Calculate
CutCopyMode = False
End Sub

'somethinglikeant