Перенос данных на шаблон и печать

[barbus]

Привет.
Помогите доделать файл.
Задача такова:
Есть файл excel с двумя листами Sheet1 и shablon. На Sheet1 находятся данные (диапазон С9:О39) в строках, которые надо перенести на шаблон а потом напечатать.
Перед переносом есть форма где нужно выбрать какие строки печатать или выбор можно сделать автоматически если кликать на кнопку SELECT. Программа сама выберит те строки в которых есть данные.
В шаблоне на одном листе есть два одинаковых шаблона которые в свою очередь состоят из идентичных данных то есть продублированы. На шаблоне все красные это переносимые данные из Sheet1.

1.Как создать цикл который бы каждую строку перенес на шаблон
2.после переноса напечатать выбранные данные на шаблоне
3.как сделать автовыбор строк с данними
4.И все это сделать через форму

Прикрепляю то что я смог сделать еще Word с картинками и задачей.

[barbus]

Как можно сократить этот код?

Private Sub UserForm_Initialize()
Forma_4.Caption = "оеЩіЭ пнЫіЙЭ»сБ БЭпс»Йбх еіпбхСіЭ" & "           ІЩліГЗн   " & Format(Date, "dd-mm-yyyy") & "Г."
Frame4.Caption = " АЭпс»Й пенбХ µіЕіЭЩбхЭщЭ»сБ "
Frame1.Caption = " Оіс·інбсбхЩЭ»с "

CheckBox1.Caption = Sheet1.Range("A9")
CheckBox1.ControlTipText = Sheet1.Range("B9")
CheckBox2.Caption = Sheet1.Range("A10")
CheckBox2.ControlTipText = Sheet1.Range("B10")
CheckBox3.Caption = Sheet1.Range("A11")
CheckBox3.ControlTipText = Sheet1.Range("B11")
CheckBox4.Caption = Sheet1.Range("A12")
CheckBox4.ControlTipText = Sheet1.Range("B12")
CheckBox5.Caption = Sheet1.Range("A13")
CheckBox5.ControlTipText = Sheet1.Range("B13")
CheckBox6.Caption = Sheet1.Range("A14")
CheckBox6.ControlTipText = Sheet1.Range("B14")
CheckBox7.Caption = Sheet1.Range("A15")
CheckBox7.ControlTipText = Sheet1.Range("B15")
CheckBox8.Caption = Sheet1.Range("A16")
CheckBox8.ControlTipText = Sheet1.Range("B16")
CheckBox9.Caption = Sheet1.Range("A17")
CheckBox9.ControlTipText = Sheet1.Range("B17")
CheckBox10.Caption = Sheet1.Range("A18")
CheckBox10.ControlTipText = Sheet1.Range("B18")
CheckBox11.Caption = Sheet1.Range("A19")
CheckBox11.ControlTipText = Sheet1.Range("B19")
CheckBox12.Caption = Sheet1.Range("A20")
CheckBox12.ControlTipText = Sheet1.Range("B20")
CheckBox13.Caption = Sheet1.Range("A21")
CheckBox13.ControlTipText = Sheet1.Range("B21")
CheckBox14.Caption = Sheet1.Range("A22")
CheckBox14.ControlTipText = Sheet1.Range("B22")
CheckBox15.Caption = Sheet1.Range("A23")
CheckBox15.ControlTipText = Sheet1.Range("B23")
CheckBox16.Caption = Sheet1.Range("A24")
CheckBox16.ControlTipText = Sheet1.Range("B24")
CheckBox17.Caption = Sheet1.Range("A25")
CheckBox17.ControlTipText = Sheet1.Range("B24")
CheckBox18.Caption = Sheet1.Range("A26")
CheckBox18.ControlTipText = Sheet1.Range("B26")
CheckBox19.Caption = Sheet1.Range("A27")
CheckBox19.ControlTipText = Sheet1.Range("B27")
CheckBox20.Caption = Sheet1.Range("A28")
CheckBox20.ControlTipText = Sheet1.Range("B28")
CheckBox21.Caption = Sheet1.Range("A29")
CheckBox21.ControlTipText = Sheet1.Range("B29")
CheckBox22.Caption = Sheet1.Range("A30")
CheckBox22.ControlTipText = Sheet1.Range("B30")
CheckBox23.Caption = Sheet1.Range("A31")
CheckBox23.ControlTipText = Sheet1.Range("B31")
CheckBox24.Caption = Sheet1.Range("A32")
CheckBox24.ControlTipText = Sheet1.Range("B32")
CheckBox25.Caption = Sheet1.Range("A33")
CheckBox25.ControlTipText = Sheet1.Range("B33")
CheckBox26.Caption = Sheet1.Range("A34")
CheckBox26.ControlTipText = Sheet1.Range("B34")
CheckBox27.Caption = Sheet1.Range("A35")
CheckBox27.ControlTipText = Sheet1.Range("B35")
CheckBox28.Caption = Sheet1.Range("A36")
CheckBox28.ControlTipText = Sheet1.Range("B36")
CheckBox29.Caption = Sheet1.Range("A37")
CheckBox29.ControlTipText = Sheet1.Range("B37")
CheckBox30.Caption = Sheet1.Range("A38")
CheckBox30.ControlTipText = Sheet1.Range("B38")
CheckBox31.Caption = Sheet1.Range("A39")
CheckBox31.ControlTipText = Sheet1.Range("B39")
CheckBox32.Caption = Sheet1.Range("A40")
CheckBox32.ControlTipText = Sheet1.Range("B40")
CheckBox33.Caption = Sheet1.Range("A40")
CheckBox33.ControlTipText = Sheet1.Range("B40")
        
End Sub

[IgorGO]

for i = 1 to 33
  controls("CheckBox" & i).caption = sheet1.cells(i+8,1)
  controls("CheckBox" & i).ControlTipText = Sheet1.cells(i+8,2)
next

[barbus]

Сообщение от IgorGO

for i = 1 to 33
  controls("CheckBox" & i).caption = sheet1.cells(i+8,1)
  controls("CheckBox" & i).ControlTipText = Sheet1.cells(i+8,2)
next

Спасибо

А как организовать цикл который бы при нажатии кнопки "Select" проверял на листе Sheet1 какие строки заполнены (скажем с9:о9) и поставлял галочки на Checkbox-ах.
А потом при нажатии печать в форме проверял какие Checkbox-и виделени и переносил данные из строк в соответствующие ячейки в шаблоне и напечатал и так далее пока в диапазоне С9:О39 не останется заполненных ячеек