Перенос динамических диапазонов ячеек в бланк

[strannick]

Добрый день, уважаемые форумчане!
Имеется бланк на листе 2 (с кучей объединенных ячеек). Ногами не бейте и не говорите, что объединенные ячейки - это вселенское зло. Сам знаю. Но таковы реалии. Есть форма занесения информации на листе 1. По сути, это те же таблицы. По другому организовать не смог. Так вот, количество строк в таблицах может быть разное. То есть, диапазоны, отмеченные соответствующими цветами, динамические. Как можно организовать перенос диапазонов соответствующих цветов с первого на второй лист без потери формы самого бланка, а только с изменением количества строк вверх-вниз? Такая билиберда только на этом листе, с остальными все в порядке, так что хотелось бы увязать одно с другим и чтобы выходной файл был экселевским. А то я поначалу думал экспортировать в шаблон ворда.
Спасибо заранее!

[alex77755]

Есть форма занесения информации

Формы нет.
Привести в порядок так называемую "форму занесения" будет быстрей чем понять систему её построения, что бы написать макрос.
По большому счёту цикл по строкам с проверкой цвета и значений.

[strannick]

Юзерформу как таковую для занесения не делал. Прямо с отдельного листа. В примере ее часть касаемая только этой части бланка (в бланке это пятый лист). Думаю, чтоб не мучаться, переделаю сам бланк, уберу объединение ячеек. Куда вставлять - понятно заранее. Вставку делать с добавлением ячеек вниз.

[strannick]

Переделал шаблон на листе2, чтобы по максимуму сократить количество объединенных ячеек. Диапазоны - 3 штуки - на листе1 выделены каждый своим цветом. Диапазоны динамические. Так вот, после их заполнения вручную необходимо копировать каждый и вставлять на лист 2 со сдвигом вниз:

Sheets("Лист11").Select
Range("A4:G4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Лист2").Select
Range("A9:G9").Select
Selection.Insert Shift:=xlDown

Это для первого диапазона. Но если для первого диапазона понятно куда вставлять, то для второго и третьего после вставки первого уже будет непонятно. Вставлять проверку по первому столбцу, по подзаголовку столбца?

Set sh = Sheets("Лист2")
For k = sh.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If sh.Cells(k, 1) = "Обозначение части границы" Then sh.Cells(k + 2, 1) = тому, что скопировали с первого листа

Помогите организовать это дело. Заранее спасибо.

[strannick]

Вопрос снимается. Все оказалось проще простого. Если делать копи-паст начиная не с верхнего диапазона, а с нижнего, то и места вставки заранее известны и никакой проверки-определения городить не надо. Вот только с форматированием разберусь и все.
Это видать жара так действует. Мозг кипит, мысли не движутся. Всем спасибо!