أشكرك كثيراً أخي الكريم .... لقد قمت أنا بالمطلوب و لكن فكرتك أفضل ...
Private Sub Worksheet_Change(ByVal Target As Range)
Static Changed As Boolean
If Changed Then Exit Sub
If Target(1, 1).Column = 7 And IsEmpty(Target(1, 1)) Then
Changed = True
Target(1, 1) = 0
End If
Changed = False
End Sub