每组数据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)"