VBA EXCEL group multilevel

[bob14]

Ik ben op zoek naar een VBA die mij een van een dump uit een systeem een beter weergave kan geven, nu zie je zoiets (maar dan >500 regels):

A B
1 hoofdassy
2 sub assy 1
3 part 1
4 sub assy
5 part x
5 part y
3 part 2

Ik zou graag willen groeperen en/uitlijnen op de verschillende levels. Ik heb diverse dingen geprobeerd, maar helaas. Het systeem kan maximaal 8 levels diep verwerken.

Ik heb wel een vb gevonden:
Sub Groeperen()
Dim i As Integer
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 1).Value = 2 Then
Rows(i).OutlineLevel = 3
End If
If Cells(i, 1).Value = 1 Then
Rows(i).OutlineLevel = 2
End If
If Cells(i, 1).Value = 0 Then
Rows(i).OutlineLevel = 1
End If
Next
End Sub

Maar die krijg ik niet multilevel.


Wie helpt mij verder?!