Сумма динамических диапазонов ячеек в определенном столбце, разделенных пустыми

[Alex18]

Уважаемые форумчане!
Нужен макрос, который в пустую ячейку под динамическим диапазоном столбца B вставлял формулу суммирования этого диапазона. Диапазонов м.б. несколько.
В последнюю ячейку столбца B (Итого) нужно вставить формулу, отображающую общий результат.

[Poltava]

Ну вопервых невижу динамических диапазонов. Разве что вы имели в виду изменяющиеся количество строк в столбце. И если первое и вы имели в виду именно динамические диапазоны то может имеет смысл вынести в отдельный столбец и считать формулой без макросов, если же второе то тогда при вставке или удалении строк обычная вручную введенная сумм неслохо работает.

[kuklp]

Если правильно угадал:

Код Выделить Развернуть

Sub www()
    Dim a As Range, r As Range
    On Error Resume Next
    Set r = Range("b3:b" & Cells(Rows.Count, 2).End(xlUp).Row)
    r.SpecialCells(xlCellTypeFormulas, 1).ClearContents
    On Error GoTo 0
    Set r = Range("b3:b" & Cells(Rows.Count, 2).End(xlUp).Row)
    For Each a In r.SpecialCells(2, 1).Areas
        a(1).Offset(a.Count).Formula = "=SUBTOTAL(9," & a.Address(0, 0) & ")"
    Next
    r(1).Offset(r.Count + 1).Formula = "=SUBTOTAL(9," & r.Address(0, 0) & ")"
End Sub