Hallo, probiere mal dieses hier:

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer

'REMOVE Set Wks = Worksheets.Add 
'REMOVE Wks.Name = "Konsolidierung"

For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
  strLC = .Cells(.Rows.Count, .Columns.Count).Address
  Set Bereich = .Range("A2:" & strLC)
  Bereich.Copy Destination:= _
  Sheets("Konsolidierung").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

Ich hatte mal ein ähnliches Problem und das im Netz gefunden.... LG