Macro pour grouper plan

Bonjour
Quelqu’un pourrait ’il m’explique ce code ?

************************************************************************************
Sub group_A()
' Groupe par la collone A
Dim tab1 As Variant
tab1 = Range("A1:A2000").Value
p = 1
For i = 2 To 2000
If tab1(i, 1) <> tab1(i - 1, 1) Then
If p <> i - 1 Then
Range(Cells(p, 1), Cells(i - 2, 1)).Rows.Group
End If
p = i
End If
Next i
If p <> 2000 Then
End If
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub
************************************************************************************
Je voudrais modifier cette macro mais je ne la comprends pas

Je comprends que au début je déclare une radiante que je nome tab1 et qu’elle est située de A1 à A 2000.
A la fin je regroupe le tout au niveau 1.

Mon problème c’est que la ligne de synthèse se retrouve en dessous.
Si je la modifie mon plus de déroulage et décaler ver le haut.
Pouvez-vous m’aider

Je voudrais créer plans et regrouper toutes les lignes identiques avec la ligne de synthèse en première ligne..