Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Text <> "" Then
Target.Offset(0, 1) = Format(Now, "dd")
Target.Offset(0, 2) = Format(Now, "mm")
Target.Offset(0, 3) = Format(Now, "yyyy")
End If
End Sub
Download File: Driver