Çıktı alırken satır toplamlarını her sayfa sonunda almak

[gaslihak]

Değerli form üyeleri elimde 73 sayfalık bir puantaj tablom var her sayfada bulunan gün toplamlarının sayfanın satır sonunda toplamasını istiyorum bir formül bulamadım şimdiden teşekkürler.

 

[YUSUF44]

Aşağıdaki kodları oluşturdum ancak nedense son 2-3 sayfada alt toplam yapmadı:

Sub toplam()
son = Cells(Rows.Count, "A").End(3).Row
For i = 41 To son Step 38
    Rows(i).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(i, "B") = "TOPLAM"
    Cells(i, "AH").FormulaR1C1 = "=SUM(R[-37]C:R[-1]C)"
    With Range("A" & i & ":AL" & i).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    son = son + 1
Next
End Sub

 

[gaslihak]

Kod için teşekkürler uyguladım çalıştı