Я Вам отправил в личку, пожалуйста смотрите ...
Но обратите внимание, что с группировкой строк есть ньюанс ...
Команда, которая непосредственно выполняет группировку строк:
Код: Выделить всё
ExcelObject{MyXLS & 'Rows("' & Clip(Loc:StartRow) & ':' & Clip(Loc:EndRow) & '").Group'}
Код: Выделить всё
ExcelObject{MyXLS & 'Outline.SummaryRow'} = 0