Заполнение таблицы через форму

[AlexKaj]

Всем здравствуйте.
Помогите разобраться пожалуйста.
Файлик прилагается.

Суть такая:
Выписываются Наряд-задания на работу

1) Лист "НЗ" заполняется (оранжевые ячейки) в ручную либо из выпадающего меню (подтягиваются с листов "Рабочие" и "Адреса")
2) Лист "ФормаП" содержит печатную форму которая заполняется с с листа "НЗ"
   
3) Лист "Архив" по замыслу должен содержать в себе все распечатываемые наряд-задания
    Проблема: Как сделать так чтобы таблица "Архив" заполнялась автоматически после нажатия кнопки "Печать".
    Чтоб каждое новое НЗ заполнялось в новую строку.
    Это должен быть макрос или формула?

Направьте пожалуйста в какую сторону копать.
Если можно пример какой-нибудь

[Hugo121]

Добрый день.
Раз печать по нажатию кнопки делает макрос, то и в архив копировать данные должен макрос.
Только что делать если вдруг принтер накосячит, и печатать придётся ещё раз?

Ну а так вот дополненный код на кнопку:

Код Выделить Развернуть

Sub Печать()

Sheets("ФормаП").PrintOut preview:=True
With Sheets("Архив")
.Cells(.Rows.Count, "A").End(xlUp)(2).Resize(, 8) = Array([B4].Value, "'" & [B2].Value & [D2].Value, [B8].Value, [B10].Value, [b6].Value, [D6].Value, [F6].Value, [H6].Value)
End With
Лист1.Range("D2") = Лист1.Range("D2") + 1

End Sub

[AlexKaj]

Ну а так вот дополненный код на кнопку:

Спасибо большое

Только что делать если вдруг принтер накосячит, и печатать придётся ещё раз?

Это мелочи