مشكلتى انه استخدمت AUTO COUNTER ( Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$B$1" And Target.Value <> "" Then 
Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 
Target.Select 
End If 
End Sub ) فى تنفيذ عد فواتير وذلك على خليه يكتب فيها اسم الفاتورة ثم قمت بعمل ماكرو يمسح الفاتورة وكذلك الأسم ولكن حدث خطأ(Sub clear() 
' 
' clear Macro 
' MGS 
' 
 
' 
    Range("A4").Select 
    ActiveWindow.SmallScroll Down:=0 
    Range("A4:A37").Select 
    ActiveWindow.SmallScroll Down:=-39 
    Selection.ClearContents 
    Range("C4:C37").Select 
    Selection.ClearContents 
    Range("b1").Select 
    Selection.ClearContents 
    ActiveWindow.SmallScroll Down:=-27 
End Sub ) ما السبب افيدونى