Len narýchlo:

funguje ak:
- hárky TAB obsahujú aspoň dva riadky
- v žiadnom z hárkov TAB nie sú údaje v stĺpci A nesúvislé a začínajú na riadku 1

Sub Zlucovanie()
Application.ScreenUpdating = False
    For i = 2 To Sheets.Count
        If i = 2 Then
            RiadokVlepenia = 1
            Else: RiadokVlepenia = Sheets(1).Range("A1").End(xlDown).Row + 1
        End If
        Sheets(i).Rows("1:" & Sheets(i).Range("A1").End(xlDown).Row).Copy (Sheets(1).Range("A" & RiadokVlepenia))
    Next i
End Sub