تفضل لك ما طلبت وهذا هو الكود المستخدم
Sub x()
Range("F7:F1000").Formula = "=IF(A7<>0,SUM(E7*C7),"""")"
End Sub
ويوضع كود اخر فى حدث ورقة fatoura وهو
Private Sub Worksheet_change(ByVal Target As Range)
Call x
End Sub
وتفضل الملف بعد وضع الأكواد به
fatoura7.xlsm