Макрос обработки группированных данных

[nitrogear]

Добрый день.
Просьба помочь с идеей или реализацией задачи:
необходимо в ячейке, по которой производится группировка, разместить формулу суммирования элементов, входящих в группировку.
Приложил примерный файл, где цветом указаны ячейки, где нужно произвести суммирование. Уровней группировки может быть до 7.

[nitrogear]

Возможно, как-то коряво, но большого опыта нет ;-)
У меня получилось вот так:

PHP код:

Sub SetSums()
   StartRow = 2 
   LastRow = 35
    WorkingCol = 3
    Set ws = ActiveSheet
    Flag = 0
    Dim CellForm As String
        For GrLev = 8 To 2 Step -1
        For iCell = StartRow To LastRow
            If (Flag = 0) And (GrLev = ws.Rows(iCell).OutlineLevel) Then
                Flag = 1
                WrCell = iCell - 1
                CellForm = "=" & ws.Cells(iCell, WorkingCol).Address
                ws.Cells(WrCell, WorkingCol).FormulaLocal = CellForm
            ElseIf (Flag = 1) And (GrLev = ws.Rows(iCell).OutlineLevel) Then
                CellForm = CellForm & "+" & ws.Cells(iCell, WorkingCol).Address
                ws.Cells(WrCell, WorkingCol).FormulaLocal = CellForm
            ElseIf (Flag = 1) And (GrLev > ws.Rows(iCell).OutlineLevel) Then
                Flag = 0
            End If
        Next iCell
    Next GrLev
End Sub