Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range

    Set A = Range("A2:A" & Rows.Count)

    If Intersect(A, Target) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
        Target.Offset(0, 1) = Date
        Target.Offset(0, 2) = Time
    Application.EnableEvents = True
End Sub