formülden makroya yardımmm lütfen

[croww]

arkadaşlar
excelde kullandığım =EĞER(VE(EBOŞSA(D5);EBOŞSA(E5));"";F4+D5-E5)
bu formülü ActiveSheet te tüm f sütununa uygulansın istiyorum ama olmuyor
bu konuda yardımlarınızı bekliyorum

 

[EErkut]

sanırım istediğin böyle bir şey

Sub deneme()

Range("F5").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(ISBLANK(RC[-2]),ISBLANK(RC[-1])),"""",R[-1]C+RC[-2]-RC[-1])"
Range("F5").Select
Selection.Copy
Range("F5:F100").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll Down:=-105
Range("F5").Select
End Sub