Печать динамической таблицы

[Ekstra]

Есть динамическая таблица из сегментов с разным количеством строк, из этих сегментов надо вытащить информацию для заполнения форм для печати. Подробнее в файле. Как одолеть эту проблему понятия не имею. Вся надежда на Вас гуру экселя.

[Ekstra]

Файл не прикрепился, теперь прикрепил извините новичка

[Ekstra]

Видно такая задача большой гемор, подскажите хотя бы грядку где копать

[EducatedFool]

Задача-то не сказать чтобы сложная была, но... данные у вас так организованы, что без макроса тут, похоже, не обойтись.

Не совсем понятно, что делать с формами на листах 2 и 3
Просто подставить данные в соответствующие ячейки (независимо от того, что там было до этого)?
Копировать формы (из 55 строк) не надо (перед вставкой данных)?

[EducatedFool]

Вот что получилось: (только для формы на листе 2, т.к. для листа 3 - непонятно, где должен находиться следующий заполненный блок)

Sub Макрос()
    On Error Resume Next
    Dim cell As Range
    For Each cell In Range(Range("a5"), Range("a" & Rows.Count).End(xlUp)).Cells
        If cell.MergeArea.Cells(1).Address = cell.Address Then
            Select Case cell.EntireRow.Cells(11)
                
                Case "Годен"
                    n1& = n1& + 1    ' номер очередной формы на листе
                    BlockHeight& = 55    ' высота формы (количество строк)
                    With Worksheets("List2")
                        .Cells((n1& - 1) * BlockHeight& + 8, 3) = Cells(1, 3)
                        .Cells((n1& - 1) * BlockHeight& + 11, 2) = Cells(2, 3)

                        .Cells((n1& - 1) * BlockHeight& + 15, 2) = cell & cell.EntireRow.Cells(3)
                        .Cells((n1& - 1) * BlockHeight& + 21, 2) = cell.EntireRow.Cells(9)
                        .Cells((n1& - 1) * BlockHeight& + 28, 2) = cell.EntireRow.Cells(14)
                    End With
                
                Case "Брак"
                    ' делаем по аналогии ...
                
                Case Else
                    ' такие блоки не обрабатываем
            End Select
        End If
    Next cell
End Sub

Пример в прикреплённом файле


PS: в прикреплённом файле, замените строку
.Cells((n1& - 1) * BlockHeight& + 15, 2) = cell & .EntireRow.Cells(3)
на
.Cells((n1& - 1) * BlockHeight& + 15, 2) = cell & cell.EntireRow.Cells(3)

[Ekstra]

Спасибо Игорь за помощь. С макросами не очень дружу. Вы написали макрос для таблицы что у меня в примере, но таблица будет продолжаться дольше я пробывал продолжать данные не захватывает. На листе 3 следующий заполненный блок должен находиться на другой странице по аналогии с листом 2. Подскажите пожалуйста где надо подправить чтобы заработало. Еще раз спасибо большое.

[EducatedFool]

Вы написали макрос для таблицы что у меня в примере, но таблица будет продолжаться дольше я пробывал продолжать данные не захватывает.

Если структура данных на первом листе будет та же, - всё будет работать для листа 2, независимо от количества строк.
(количество строк влияет только на время работы макроса)

Надо выкладывать реальный файл, - чтобы потом переделывать не приходилось...

[Ekstra]

Извиняюсь работает, спасибо огромное Игорь, буду пробовать заточить под реальный файл в котором сам черт ногу сломает.