اذا امكن تفعيل هذا الكود
Private Sub Worksheet_change (ByVal Target As Range)
On Error GoTo zz
If Target.Column = 2 And Target.Value <> "" Then
Application. EnableEvents = False
Target.offset (0, -1) = Format (Now (), "dd-mm-yyyy hh:mm:ss")
Application.EnableEvents = True
End If
zz:
End Sub