Помогите, плиз, вопрос по суммированию

[Coty198]

Здравствуйте, в приложенном файле кусочек моей таблицы. Мне нужно в строки, выделенные цветом (с пятизначным кодом в начале) просуммировать числа до следующей строки, выделенной цветом. Колонок на самом деле больше, ну и строк тоже. Подскажите, пожалуйста, как это можно сделать. Заранее спасибо.

[cent]

Ну если вручную(формулами) это действительно трудно сделать , и ячейки будут раскрашены, то можно и так. (смотрите вложение)

Sub sum()
    Application.ScreenUpdating = False
    Dim r&, rt&, i&
    r = 2: rt = 3
    Do While ActiveSheet.Cells(rt, 1).Value <> ""
        If ActiveSheet.Cells(rt, 1).Interior.ColorIndex = 6 Then r = rt: rt = r + 1
        For i = 2 To 6
            ActiveSheet.Cells(r, i).Value = ActiveSheet.Cells(r, i).Value + ActiveSheet.Cells(rt, i).Value
        Next i
        rt = rt + 1
    Loop
    Application.ScreenUpdating = True
End Sub

[Coty198]

Спасибо. Если можно сделать формулами, то даже лучше будет. Вообще у меня суть проблемы следующая: идет общая сумма затрат, ниже по филиалам, а мне нужно то же самое, но по филиалам в строку. То есть колонки у меня названия филиалов. Уже замучалась с этим вопросом.

[cent]

идет общая сумма затрат, ниже по филиалам, а мне нужно то же самое, но по филиалам в строку. То есть колонки у меня названия филиалов.

Лучше дайте файлы с примером как есть изначально и как должно выглядеть в итоге.