Experimente este código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then'Enter content in Column A
If Target = "" Then
Target.Offset(0, 6) = ""
Else
Target.Offset(0, 6) = Format(Now, "yyyy-mm-dd")'Record date in Column G
End If
End If
End Sub