Форум по VBA и MS Office

Добрый день.
Во вложении файл, итоговый как надо сделать группировку...
Использовал вот такой макрос:

Макрос

Sub test()

Dim i As Long, Rw As Long

With Sheets("Анализ")

Rw = .Cells(Rows.Count, 4).End(xlUp).Row

For i = 2 To Rw

If Application.CountIf(.Cells(i, 4), "*Объем отгруженного товара*") = 0 Then Rows(i).Rows.Group

Next

End With

End Sub

[свернуть]

Но он работает, когда нет лишний строк... то есть только показатели Объем отгруженного товара, тогда все хорошо...
Я так понимаю, надо добавить начальное условие для группировки, и конечное... Но не понимаю как.. Можете помочь?

[ФАЙЛЫ ВАШИ ПОЛУЧЕНЫ - НЕТ НЕОБХОДИМОСТИ ВЫКЛАДЫВАТЬ ИХ ПОВТОРНО]

Опишите словами (без кода), как надо сделать группировку?
Приведите пример на основе предоставленного файла.