макрос для обьединения таблиц со всех листов одной книги в одну

Sub Копировать_листы_на_лист1()
    ' Макрос копирует данные на 1-ый лист активной книги из остальных листов, добавляя данные ниже к существующим на 1-ом листе
    Dim i&, LastRow&, LastRow_Cel&, LastCol&, FirstRow&, ShCel As Worksheet, Sh As Worksheet
    Set ShCel = Sheets(1)
    With ShCel.UsedRange
        LastRow_Cel = .Rows.Count + .Row + 2
    End With
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Index > 1 Then
            With Sh
               With .UsedRange
                    FirstRow = .Row
                    LastRow = .Rows.Count + .Row - 1
                    LastCol = .Columns.Count + .Column - 1
                End With
                .Range(.Cells(FirstRow, 1), .Cells(LastRow, LastCol)).Copy
                ShCel.Cells(LastRow_Cel, 1).PasteSpecial Paste:=xlPasteFormulas
                'ShCel.Cells(LastRow_Cel, 1).PasteSpecial Paste:=xlPasteValues ' Если надо копировать значения, а не формулы.
                ShCel.Cells(LastRow_Cel, 1).PasteSpecial Paste:=xlPasteFormats
                LastRow_Cel = LastRow_Cel + LastRow - FirstRow + 1 + 2 ' 2- интервал пустых строк между блоками.
            End With
        End If
    Next Sh
End Sub