Yardım Makro ile satıra formül atama

Merhaba arkadaşlar,

aşağıdaki makroda başka sayfaya bilgi aktarılmakta.
burda makro ile satıra =çarpma veya toplama veya eğer formülü herhangibir formül olabilir.
eklemek istiyorum. makro çalıştığında hep en alt satıra atmakta yani her çalıştığında formül bir alt satıra
yeniden atılsın istiyorum.

Sheets("Maliyet Takip").Select

malson = Range("A65536").End(3).Row + 1
'Range("a2:ah1000").Cut Range("a3")
Cells(malson, 1) = malson - 1
Cells(malson, 2) = işemrinffset(0, -1) 'sipariş adet
Cells(malson, 3) = işemrinffset(0, 0) 'birim fiyat
Cells(malson, 4) = işemrinffset(0, 6) 'toplam fiyat

mesela 5 sütünda sipariş adeti* birim fiyat atacağım

Cells(malson+1,4).formula="=Topla(d1:d"& malson &")"

fatih' Alıntı:

Cells(malson+1,4).formula="=Topla(d1:d"& malson &")"

Genişletmek için tıkla ...

teşekkürler,

birkaç deneme ile sayenizde buldum.

Cells(malson, 33).Formula = "=f" & malson & "-af" & malson & ""

Cells(malson, 35).Formula = "=eğer(ag>0;geldi;gelmedi nasıl yaparız

Cells(malson, 35).Formula = "=IF(ag>0,""Geldi"",""Gelmedi"")"

Olmadı yapamadım

Cells(malson, 36).Formula = "=IF(ag" & malson & "f" >= "" & malson & "Geldi"",""Gelmedi"")"""

Cells(malson, 1).Formula = "=IF(ag" & malson & ">=" & "F" & malson & ",""Geldi"",""Gelmedi"")"

exel hücresinde (malson=1 dersek) >>> =EĞER(AG1>=F1;"Geldi";"Gelmedi")