Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Set rng = Target.Parent.Range("A2:A100")
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    If Target <> "" Then Target.Offset(, 7).Value = Time
    Target.NumberFormat = "h:mm AM/PM"
End Sub