расчет итогов

[qdesn1k]

Есть макрос, который ищет по колонке "А", текст "Итого:" и затем суммирует на этой строке данные по колонке "F" начиная с F6.

Sub Итоги()

Set s = Columns("A").Find("Итого:", , xlValues, xlWhole, , , False)
If Not s Is Nothing Then Range("F" & s.Row).Formula = "=Sum(F6:F" & s.Row - 1 & ")"

End Sub

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

[nilem]

как-то так, наверное

Sub ert()
Dim r As Range, i&, adr$
With ActiveSheet.UsedRange.Columns(1)
    Set r = .Find("№"): If Not r Is Nothing Then i = r.Row + 1 Else Exit Sub
    Set r = .Find("Итого")
    If Not r Is Nothing Then
        adr = r.Address
        Do
            r(, 6).FormulaR1C1 = "=SUM(R" & i & "C:R[-1]C)"
            i = r.Row + 1: Set r = .FindNext(r)
        Loop While r.Address <> adr
    End If
End With
End Sub

[qdesn1k]

Сообщение от nilem

как-то так, наверное

Sub ert()
Dim r As Range, i&, adr$
With ActiveSheet.UsedRange.Columns(1)
    Set r = .Find("№"): If Not r Is Nothing Then i = r.Row + 1 Else Exit Sub
    Set r = .Find("Итого")
    If Not r Is Nothing Then
        adr = r.Address
        Do
            r(, 6).FormulaR1C1 = "=SUM(R" & i & "C:R[-1]C)"
            i = r.Row + 1: Set r = .FindNext(r)
        Loop While r.Address <> adr
    End If
End With
End Sub

nilem, Спасибо, работает все как надо!

Требуется помощь еще кое в чем, эти итоги нужно просуммировать и вывести в самом конце результат
Всего: .....