Копирование строчек по разным столбцам на другой лист

[lilpop]

Здравствуйте!
мучаюсь уже несколько дней с кодом(недавно начала изучение VBA).
Нужно скопировать строчки с Лист1 на Лист2, но так, чтобы код был универсальным (чтобы можно было проделать эту процедуру с другой книгой, но с такими же строчками и столбцами).
Проблема еще заключается в том, что подпунктов 1.1.1.1 или 1.1.2.1 или 1.1.2.4.1 и т.д. может быть неопределенное количество. Также могут появиться подпункты (например, 1.1.2.4.1.1), которые должны быть в столбце "5 уровень" Лист2.
Прикладываю файл для примера. На лист2 уже скопировала ручками строчки и разнесла по столбцам.
Заранее спасибо!исходник.xlsm.zip

[lilpop]

Макрос будет использован на винде