Инкрементная функция SUM для включения новой вставленной строки в VBA

Question

Я пытаюсь найти способ обновить промежуточную сумму в нижней части таблицы, чтобы она включала вновь вставленные значения строк.

Например, в следующей таблице у меня есть кнопка, которая вставляет строки в конец таблицы (для добавления новых элементов).Эта кнопка использует VBA.Я только что вставил строку 4, используя vba, и она пустая.Однако в строке промежуточных итогов функция суммы не изменилась, чтобы включить новую строку.Что я могу добавить в конец моего кода VBA, чтобы изменить эту формулу суммы, чтобы включить новую строку (и расширить диапазон на одну ячейку вниз)?Так что всякий раз, когда я использую свою кнопку для добавления строки, она также расширяет диапазон на одну ячейку вниз?(включить b4)

Пример электронной таблицы

Answer 1

Этот код помещает формулу в 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