про объединение файлов

[Алабор]

задача: объединить файлы одинаковой структуры. Данные только на первых листах. Полученный результат сохранить в новой книге.
Вопрос: как исправить ошибку в коде?

Sub Consolidated_Range()

    Dim Sheet
    Dim iRngAddress As String, oAwb As String, DataSheet As String, _
        iCopyAddress As String, sSheetName As String, oFile
    Dim lLastrow As Long, lLastRowMyBook As Long
    Dim iLastColumn As Integer
    Dim Str() As String

    SampleFileKladovay = Application.GetOpenFilename(, , "Выберите таблицу образец") 'вывод диалогового окна для таблицы-образца
    If SampleFileKladovay = False Then
    Main_Form.Show 'если ничего не выбрано отображаем форму и
    End If '  - стоп
    DataSheet = ThisWorkbook.ActiveSheet.Name
    With Application.FileDialog(msoFileDialogFilePicker) 'открываем диалог выбора файлов
        .AllowMultiSelect = True 'разрешаем мультивыбор
        .InitialFileName = "*.*" 'фильтр на файлы
        .Title = "Выберите файлы"
        If .Show = False Then Exit Sub 'если ничего не выбрано - конец
        For Each oFile In .SelectedItems 'открытие цикла по выбранным файлам
            Workbooks.OpenText Filename:=oFile ' ?почему открытие как txt файла?
            oAwb = Dir(oFile, vbDirectory)
            'Application.ScreenUpdating = False
            Workbooks(oAwb).Activate
                        lLastrow = Cells(1, 1).SpecialCells(xlLastCell).Row
                        iLastColumn = Cells.SpecialCells(xlLastCell).Column
                        iCopyAddress = Range(Cells(4, 1), Cells(lLastrow, iLastColumn)).Address
                    lLastRowMyBook = ThisWorkbook.Sheets(DataSheet).Cells.SpecialCells(xlLastCell).Row + 1
                    iRngAddress = Range(Cells(lLastRowMyBook, 1), Cells(lLastRowMyBook + lLastrow, iLastColumn)).Address
                    Stop
                    Sheet.Range(iCopyAddress).Copy Destination:=SampleFileKladovay.Sheets("List1").Range(iRngAddress)
            Workbooks(oAwb).Close False
        Next oFile
    End With
    Application.ScreenUpdating = True
End Sub

как я понимаю, ошибка в этой строке:
Destination:=SampleFileKladovay.She ets("List1").Range(iRngAddress)

Благодарю за ответы

[The_Prist]

Как минимум этой самой Sheet значение не присвоено. У Вас цикл по файлам, но не по листам. Чтобы копировать из первого листа:

Sheets(1).Range(iCopyAddress).Copy Destination:=SampleFileKladovay.Sheets("List1").Range(iRngAddress)

А вообще можете здесь посмотреть более объемную и усовершенствованную версию этого кода:
Как собрать данные с нескольких листов или книг?