جرب هذا الكود
لم استطع تحميل الكود بالشكل الصحيح لبطء النت
Option Explicit
()Sub Get_Formula
"(Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Formula = "=IF(C4="""","" "",B4*C4
Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Value = Range("d4").CurrentRegion.Offset(1, 0).Columns(3).Value
End Sub
الملف مرفق
Book1_salim.rar