在每组数据vba的末尾自动求和

我正在开发一个成本计算系统，根据我在macros中的筛选条件将行项目从数据库中提取出来。 它会将这些订单项拉到另一张纸上，并将它们分组。 因此，对于每个系统，这些截面大小可以是不同的大小，每次不同的行数。 我需要的是在每个部分下面的小计行，但我不能让公式正确工作，因为部分可以改变大小的公式是不断不同的。 我需要从Excel中的AutoSum函数，但我需要能够把它放在一个macros，我不知道如何做到这一点。 以下是我用来添加我的第一个小计行的代码。 最后会有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)"