Копирование листов из одной книги excel в другую

Workbooks(1).Sheets("шаблон").Cells.Copy _
Destination:=Workbooks(2).Sheets(i).Cells

Option Explicit
Dim iFlName1 As String
 
Private Sub cmdFld1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        .Filters.Add "Microsoft Excel files", "*.xls"
        .Filters.Add "All files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        .Title = "Открытие документа"
        .ButtonName = "Открыть"
        If .Show = False Then
            MsgBox "Вы не указали нужный файл!", 48, "Ошибка"
            Exit Sub
        Else
            iFlName1 = .SelectedItems(1)
        End If
        lblPath1.Caption = iFlName1
    End With
End Sub
'****************************
'начинаем обработку
'****************************
Private Sub cmdStart_Click()
    Dim i As Integer
    Dim Обработка As Excel.Workbook
    Dim Реестр As Excel.Workbook
    Dim КоличествоСтрок As Long
    
    If iFlName1 = "" Then
            MsgBox "Вы не указали нужный файл!", 48, "Ошибка"
            Exit Sub
        Else
        
            'СОБСТВЕННО ОБРАБОТКА ДАННЫХ
        'открываем реестр
        'Так можно не октрывать книгу на монитор (она будет открыта только
        'где-то в глубинах компьютера).
            Set Обработка = GetObject(iFlName1)
            Set Реестр = Workbooks("Реестр 15.12.2010.xls")
            
        '------------------
        'количество строк
            With Реестр.Worksheets("реестр")
                КоличествоСтрок = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Rows.Count - 1
            End With
        
        '------------------
        'добавляем листы по количеству строк
        For i = 1 To КоличествоСтрок
            Обработка.Worksheets("шаблон").Copy After:=Реестр.Worksheets(Реестр.Worksheets.Count)
        Next i
    End If
Обработка.Close
End Sub