Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then
        If Target.Column = 1 Then
            Target.Offset(, 1) = Date
            Target.Offset(, 2) = Time
        End If
    End If
End Sub
Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then
        If Target.Column = 1 Then
            Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd")
            Target.Offset(, 2) = Format(Now(), "h:mm:ss")
        End If
    End If
End Sub

Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then
        If Target.Column = 1 Then
            Target.Offset(, 1) = Date
            Target.Offset(, 2) = Time
        End If
    End If
End Sub
Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then
        If Target.Column = 1 Then
            Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd")
            Target.Offset(, 2) = Format(Now(), "h:mm:ss")
        End If
    End If
End Sub