Скопировать Лист и продублировать n раз

[0mega]

Доброго времени суток.

Существует некая таблица - образец
надо этот образец вставить сразу на все Листы (всего 16 Листов)
Если клик по Листу - Выделить все Листы, то эта фишка работает только при ручном вводе
Напишите пару макросов
1-ый макрос - при нажатии на кнопку должен скопирует выделенную область Лист1 и вставить на все остальные Листы Книги
Копировать должен все, включая форматирование и формулы,
(текст и формулы убрал специально.)
2-ой макрос. при нажатии на кнопочку должен запускать в печать все Листы

[RAN]

No Sub?   
Включаем рекордер, пишем

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

Sub Макрос3()
    Cells.Select
    Range("B7").Activate
    Selection.Copy
    Sheets("5007").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("4752", "4758", "4745", "5008", "145744", " 5130", "5131", "5061", "5070", _
        "5054", "5065", "5050", "5049", "5071", "5064", "5007")).Select
    Sheets("5007").Activate
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
Sub Макрос5()
    ActiveWorkbook.PrintOut Copies:=1
End Sub

Вставляем кнопки, цепляем макросы.
Усе, шеф. 

[0mega]

RAN, здравствуйте

No Sub?   

Спасибо за ответ.
У вас хорошая память.
Действительно, 90% моих вопросов начинается именно с этих слов.
Это первые робкие шаги.

[0mega]

Андрей, благодарю
Все работает как хотелось