Объединить листы в книге Exel

[ZVV]

Подскажите, как объединить все листы книги в один лист?
Есть файл из сотни листов, на каждом листе небольшая таблица 5-10 колонок и 10-100 строк, в ячейках короткий текст или числа без формул.
Необходимо все эти таблицы расположить на одном листе вертикально, последовательность таблиц значение не имеет. Между разными таблицами должна быть пустая строка. Устроит вариант сохранения текста всех листов книги в текстовом файле, например *.csv

[Dophin]

в общем виде так:

Sub pp()
Application.ScreenUpdating = False
Dim sh As Worksheet
Dim shItog As Worksheet
Dim iL As Long, iL2 As Long
Set shItog = Sheets("лист1") 'итоговый лист
For Each sh In Worksheets
If sh.Name <> shItog.Name Then
iL = sh.Cells(Rows.Count, 1).End(xlUp).Row
iL2 = shItog.Cells(Rows.Count, 1).End(xlUp).Row + 2
sh.Range(sh.Cells(1, 1), sh.Cells(iL, 10)).Copy shItog.Cells(iL2, 1)
End If
Next sh
Application.ScreenUpdating = True
End Sub

[ZVV]

Все работает, огромное спасибо!

[FANTiK123]

Спасибо, тоже пригодился код