Formülde döngü

[soykan]

Aşağıdaki gibi bir makro oluşturdum.
Döngüde problem yok ama sorunum
Topla.Çarpım formülünde burada Her bir döngüde önce 1 sonrada döngüdeki kadar numaranın artmasını istiyorum.
Bunları çünkü bir yerde alt alta depoluyorum.
Yani tekrar bu makroyu çalıştırdığımda 1 den başlayarak ddöngü kadar 1 den başlayarak numaralar artsın.

For dgi = 0 To Sheets("AlFtr").[O5]
Sheets("DataGiris").Select
dgi = [A5000].End(3).Row
Range("A" & dgi + 1).Select
ActiveCell.Offset(0, 0).Value = Sheets("AlFtr").[B3]
ActiveCell.Offset(0, 1).Value = Sheets("AlFtr").[B4]

ActiveCell.Offset(0, 2).Value = Sheets("AlFtr").[B1]
ActiveCell.Offset(0, 3).Value = Sheets("AlFtr").[B9]


ActiveCell.Offset(0, 4).Value = "Faturanız"

ActiveCell.Offset(0, 5).Value = "=SUMPRODUCT((Fatgrs[İhrRefSay]=ROW(R[-474]))*(Fatgrs[Tutar]))"
ActiveCell.Offset(0, 7).Value = "=SUMPRODUCT((Fatgrs[İhrRefSay]=ROW(R[-474]))*(Fatgrs[Tutar $]))"
ActiveCell.Offset(0, 9).Value = Sheets("AlFtr").[B7]



Next dgi