VBA kod ile alt toplam

[Mehmet Sait]

Merhabalar,

SQL den excele liste alıyorum. Liste bittiği yerde al toplamı hesaplmasını otomatik yapıyor. Aşağıdaki koda F - G yapıp, çıkan değeri H sutununa yazdırmak H sutunundaki değer sıfırdan küçükse I sutununa B büyükse A yazılması mümkün mü ? Listenin nerede biteceği bilinmediği için H ve I sutununda manuel kodlama yapamıyorum.

Range("D11:G10000").Select
    Selection.Font.Bold = False
    Range("D" & Sayfa5.Cells(1, 1) & ":G" & Sayfa5.Cells(1, 1) & "").Select
    Selection.Font.Bold = True
    Sayfa5.Activate
        Sayfa5.Cells(Sayfa5.Cells(1, 1), 4).Value = "Genel Toplam"
        Range("F" & Sayfa5.Cells(1, 1) & ":F" & Sayfa5.Cells(1, 1) & "").Select
        ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sayfa5.Cells(1, 1) - 7 & "]C:R[-1]C)"
        Range("G" & Sayfa5.Cells(1, 1) & ":G" & Sayfa5.Cells(1, 1) & "").Select
        ActiveCell.FormulaR1C1 = "=SUM(R[-" & Sayfa5.Cells(1, 1) - 7 & "]C:R[-1]C)"

Saygılarımla,