Добрый день, уважаемые!

Если есть время, поделитесь мыслями: существует некая папка с книгами xls, необходимо скопировать из этих книг с Лист 1 диапазон ячеек A1:B5 и вставить во вновь созданный файл.
Имена файлов неизвестны.

Заранее благодарен.

Есть код , он работает, но мне нужен диапазон ячеек или только первый лист (Лист1)

Sub CopySheets()
Dim iPath$, iFileName$
Dim CommonFile As Workbook, iFile As Workbook
Dim Sht As Worksheet

Set CommonFile = ActiveWorkbook
iPath = "C:\Temp\"
iFileName = Dir(iPath & "*.xls")
Do While iFileName <> ""
If iFileName <> "Îáùèé.xls" Then
Set iFile = Workbooks.Open(iPath + iFileName, ReadOnly:=True)
For Each Sht In iFile.Worksheets
Sht.Copy After:=Workbooks(CommonFile.Name).Sheets(CommonFile.Sheets.Count)
Next
Workbooks(iFileName).Close SaveChanges:=False
End If
iFileName = Dir
Loop
MsgBox "Копирование листов закончено", vbInformation, "Копирование листов"
End Sub