Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row >= 2 And Target.Value <> "" Then Cells(Target.Row, 2).Value = Now ElseIf Target.Column = 1 And Target.Row >= 2 And Target.Value = "" Then Cells(Target.Row, 2).Value = "" End If End Sub