Hallo,

probier mal:

Option Explicit

Public Sub Bsp()
  Dim lngIndex As Long
  Application.ScreenUpdating = False
  With Worksheets(1)
        For lngIndex = 2 To Worksheets.Count
            Call Worksheets(lngIndex).Range(Worksheets(lngIndex).Rows(30), Worksheets(lngIndex).Rows(32)).Copy(Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1))
        Next
  End With
  Application.ScreenUpdating = True
End Sub

Gruß,