ويمكن اختصار الكود ليصبح
Private Sub Worksheet_Change(ByVal Target As Range)
LR = Range("A" & Rows.Count).End(xlUp).Row
If Target.Column <> 1 Then Exit Sub
If Target.Row > LR Then Exit Sub
If Cells(Target.Row, 1).Value <> "" Then
Cells(Target.Row, 2).Value = Format(Now(), "hh:mm:ss")
End If
End Sub
والله اعلم