Обьединение отчета по слобцам из 2 листов

[Евгений Таб]

Доброго дня!

Прошу помощи в перемещении данных с двух листов в один - VBA.

В листе 1 и 2 аналогичные данные по столбцам.
Нужно обьединить это на 3-й лист(сначала таблица из 1 листа а снизу из второго). Колонок гдето 100, так что крайние значение указывать не нужно (колонок будем много). Во вложении пример.

Спасибо!

[Евгений Таб]

Где то видел такую методу, не могу найти. Вроде это 3 - 4 строки кода....

[Step_UA]

Sub m123()
    Sheets("Sheet1").Copy after:=Sheets("Sheet2")
    With Sheets("Sheet2")
        crow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Rows("2:" & crow).Copy Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Resize(crow - 1)
    End With
End Sub

[IgorGO]

Sub TblUnion()
  With Worksheets(1).[a1].CurrentRegion
    Worksheets(3).Cells.ClearContents: .Copy Worksheets(3).[a1]
    Worksheets(2).[a1].CurrentRegion.Copy Worksheets(3).Cells(.Rows.Count + 1, 1)
    Worksheets(3).Rows(.Rows.Count + 1).Delete Shift:=xlUp
  End With
End Sub