السلام عليكم
شكرا للاخ سليم على تعاونه معنا
تم التعديل على الكود وهو يعمل بالشكل الصحيح والمطلوب
واصبح بالشكل التالي
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Count = 1 And Target.Address <> "$A$1" Then
If Target.Offset(, 1) = "" Then Target.Offset(, 1) = Time
End If
Application.EnableEvents = True
End Sub