Доброго времени суток форуму!
Помогите, пожалуйста, ускорить и (или) упростить работу макроса группировки строк.
Имеется очень большой (20.000+) список, на самом деле - иерархический, но представленный в простом виде (в файле - пример на листе Данные).
Вид иерархии - "итоги сверху".
В самом низу - строка общих итогов. Её группировать не надо.
Уровень каждой строки задается числом в первом столбце.

Нужно создать на листе соответствующую структуру.
Важное дополнительное условие - группы (подгруппы), у которых имеется только один подчиненный уровень, нужно "свернуть".

Необходимый вид в файле - на листе Результат.
Мои попытки решить эту задачу (используя примеры с разных форумов) - тоже в файле.
Но работает этот макрос медленно.    

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