VBA - přidání řádku k seskupeným řádkům

[claxon]

Zdravím, můj problém spočívá v tom, že pomocí makra přidávám dva řádky pod hlavičku listu. Druhý řádek je pak seskupen s prvním (vedle prvního se objeví "rozklikávací plus", které zobrazuje/skrývá tento druhý spodní řádek. Potřeboval bych, aby se mi další řádek přidaný makrem vložil do této seskupené skupiny.Mé makro vytvoří novou skupinu - další "rozklikávací plus".
Makro přidávám níže.

Děkuji za odpověď.


Private Sub Add_an_row_Click()

Rows("6").Select
Selection.Copy
Range("A6").EntireRow.Insert
Range("A7").EntireRow.Insert
Rows("6:7").EntireRow.Value = none
Rows("6:7").RowHeight = 15
Rows("6:7").Interior.ColorIndex = xlColorIndexNone
Rows().Borders.LineStyle = xlLineStyleNone

Rows("7").Group



End Sub

[claxon]

Na odpověď jsem přišel. Stačí, aby byl aktivní první řádek seskupované skupiny. Další podmínkou je, aby buňka nebyla sloučena s další buňkou nad nebo pod ní.