'Данная процедура скрывает перед закрытием книги все листы,
 'кроме листа "Внимание"
 Sub Workbook_BeforeClose(Cancel As Boolean)
     Application.ScreenUpdating = False
     Dim wsSh As Worksheet
     Sheets("Внимание").Visible = -1
     For Each wsSh In ThisWorkbook.Sheets
         If wsSh.Name  "Внимание" Then wsSh.Visible = 2
     Next wsSh
     ThisWorkbook.Save
 End Sub
 'Данная процедура показывает перед открытием книги все листы,
 'кроме листа "Внимание"
 Sub Workbook_Open()
     Dim wsSh As Worksheet
     For Each wsSh In ThisWorkbook.Sheets
         wsSh.Visible = -1
     Next wsSh
     ThisWorkbook.Sheets("Внимание").Visible = 2
     Application.OnTime Now + TimeValue("00:01:00"), "CloseBook"
 End Sub

Public iTimer As Date
 Private Sub CloseBook()
 ThisWorkbook.Close (True)
 End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+й
'
Dim mRng As Range
    Set mRng = Range([b2], [c2]) ' cчитаем, что _
                   Range([a4], [e4]) - это строка _
                                 Вашего листа-шаблона
    If Application.CountA(mRng) = 0 Then
        MsgBox "Empty!!!"
        Exit Sub
            Else
 ' Ниже, вместо "Sheet2", поставте название листа, _
                                 куда копируете
                mRng.Copy Sheets("Реестр"). _
                        Cells(Rows.Count, 1) _
                                .End(xlUp).Offset(1, 0)
    End If