Добрый день. Это надо руками делать, или программно? Если руками - это делается через Данные - Группировка. Если программно - то сначала включаете запись макроса, потом руками делаете группировку, потом выключаете запись макроса. И разбираетесь в записанном коде.
P.S. Вот я разобрался немножко - вот такое получилось (выделить ячейки от слова доход и ниже до конца данных, запустить нижеприведенную конструкцию):
Скрытый текст
Код
Sub TT()
Dim objC As Range
For Each objC In Selection.Columns(1).Cells
Select Case objC.IndentLevel
Case Is = 0
objC.EntireRow.OutlineLevel = 1
Case Is = 1
objC.EntireRow.OutlineLevel = 2
Case Is = 3
objC.EntireRow.OutlineLevel = 3
End Select
Next objC
End Sub
Sub SelectionGroup()
Selection.ClearOutline
Dim y As Long
For y = Selection.Row To Selection.Row + Selection.Rows.Count - 1
Rows(y).OutlineLevel = Cells(y, 1).IndentLevel + 1
Next
End Sub