Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$5" Then Exit Sub
Range("A5") = Date
Range("B5") = Time
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ze As Long
Dim sp As Long
ze = Target.Row
sp = Target.Column
If Intersect(Target, Union(Range("C5:C48"), Range("H5:H48"))) Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(ze, sp - 2) = Date
Cells(ze, sp - 1) = Time
Application.EnableEvents = True
End Sub