excel - データvbaの各グループの終わりでの自動合計

Question

マクロにあるフィルター基準に応じて、データベースから明細項目を引き出す原価計算システムに取り組んでいます。これらの項目は別のシートに取り込まれ、セクションにグループ化されます。したがって、システムごとに、これらのセクションのサイズは異なるサイズになり、毎回異なる行数になる可能性があります。必要なのは各セクションの下の小計行ですが、セクションのサイズが変わる可能性があるため、式が常に異なるため、式を正しく機能させることができません。Excel の AutoSum 関数が必要ですが、それをマクロに組み込む必要があり、その方法がわかりません。以下は、最初の小計行を追加するために使用しているコードです。最終的に、約 5 つの異なるセクションがあるため、5 つの異なる小計があり、全体の合計も必要になります。私が言ったように、これらのセクションのサイズは定期的に変更される可能性があるため、どちらの方法もわかりません。どんな助けでも大歓迎です。

'To add subtotal
    Range("B11").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(2, 0).Select
        Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    ActiveCell.FormulaR1C1 = "Subtotal"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 2).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 3).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-2]C)"