Макрос - разделить лист по уровню группировки - VBA

Формулировка задачи:

Добрый день! Прошу помощи в решении, так сказать, проблемы. Выгружаю отчет с 1С, при этом есть сгруппированные строки и шапка таблицы. Таблицу необходимо разделить на несколько книг. Принцип деления- шапка ( 5 строк)+ сгруппированные ячейки. Сначала необходимо поделить по первому уровню группировки( т.е все строки которые в этой группировке), затем по второму. К сожалению, о таких макросах не нашла ничего. Заранее благодарна!

Решение задачи: «Макрос - разделить лист по уровню группировки»

textual
                            Листинг программы 
                        

                            Public Sub Макрос1()
    
    'Создаем новую книгу
    Dim wkbNewWorkbook As Workbook
    Set wkbNewWorkbook = Application.Workbooks.Add
    
    'Сохраняем в каталоге исходного файла
    wkbNewWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & wkbNewWorkbook.Name, _
        FileFormat:=xlOpenXMLWorkbook   '.xlsx
        'FileFormat:= xlExcel8          '.xls
    
    'Копируем диапазон в новую книгу на первый лист
    ThisWorkbook.ActiveSheet.Range("A7:Q10").Copy _
        Destination:=wkbNewWorkbook.Worksheets.Item(1).Range("A1")
    ThisWorkbook.ActiveSheet.Range("A11:Q322").Copy _
        Destination:=wkbNewWorkbook.Worksheets.Item(1).Range("A5")
    Columns("A:Q").Select
    Range("A500").Activate
    Selection.ColumnWidth = 11
   Set wkbNewWorkbook = Nothing
    
End Sub
                        