Как узнать что строка является корневым узлом группы

[rdama]

Добрый день.
Есть задачка.
Пробежать по столбцу файла
Строки в файле сгруппированы по разным признаком.
1. Заменить на 0 все отрицательные значения.
2, Пересчитать суммы для каждой группы и проставить их по корневым узлам.
Алгоритм видится следующим:
Бежим в цикле по нужному столбцу если встретили значение < 0, то заменяем на ноль.
При этом считаем сумму.
При каждой итерации проверяем является ли строка корневым узлом группы.
Если да то запоминаем индекс строки дабы потом проставить в нее значение суммы.
С 1 вопросом проблем нет.
А вот со вторым непонятно. Как узнать что строка является корневым узлом группировки?
Конечно можно просто создать массив значений корневых узлов и при каждой итерации проверять, а не корневой ли это узел.
НО хочется более гибкого решения. Ибо не понятно а вдруг заголовок корня поменяется и усе придется править макрос.

[EducatedFool]

1. прикрепляете пример файла
2. в этом примере помечаете (цветом или примечаниями), что надо пересчитать и заменить

[rdama]

Конечно спасибо. Но я не хочу, чтоб это сделал кто-то за меня. Я хочу сам это реализовать. Так что просто необходим ответ на сабж.

[rdama]

Всем спасибо.
Вот может кому еще будет нужно.

Sub CheckGroupAndSum()
Dim R As Range, i As Integer, s As Double, o As Integer
s = 0
For Each R In ActiveSheet.UsedRange.Rows
If R.OutlineLevel > 1 Then
    If Cells(R.Row, 2) > 0 Then
        s = s + Cells(R.Row, 2)
    Else
        Cells(R.Row, 2) = 0
    End If
Else
    If o > 0 Then
        Cells(o, 2) = s
        o = R.Row
        s = 0
    Else
        o = R.Row
    End If
End If
Next
    Cells(o, 2) = s
End Sub