Excel 递增求和函数以在VBA中包含新插入的行

我试图找到一种方法来更新表底部的小计，使其包含新插入的行值

例如，在下面的电子表格中，我有一个按钮，可以在表的末尾插入行（以添加新项）。此按钮使用vba。我刚刚用vba插入了第4行，它是空的。但是，在小计行中，sum函数没有更改为包含新行。我可以在VBA代码的末尾添加什么来修改该求和公式以包含新行（并将范围向下扩展一个单元格）？因此，每当我使用按钮添加一行时，它也会将范围向下扩展一个单元格？（包括b4）

---

此代码根据其上方填充的单元格数量，将公式放入B20：

Sub Formulamaker()
    Dim rng As Range

    Set rng = Range(Cells(1, "B"), Cells(1, "B").End(xlDown))
    Range("B20").Formula = "=SUM(" & rng.Address & ")"
End Sub

在您的示例中，公式插入到数据下方的两个单元格中。如果始终希望将公式放置在数据下方的两个单元格中，则：

Sub Formulamaker()
    Dim rng As Range

    Set rng = Range(Cells(1, "B"), Cells(1, "B").End(xlDown))
    Cells(rng.Rows.Count + rng.Row + 1, "B").Formula = "=SUM(" & rng.Address & ")"
End Sub

---

请张贴您的代码。为什么不在小计行之前汇总到该行？