Werte mit Array in andere Arbeitmappe

Sub TabellenKonsolidieren()
Dim i As Integer
Dim z As Integer
Dim r As Long, c As Long
Dim SZ As Worksheet
Dim rng()
Set SZ = Sheets("Input")
With SZ
z = .Cells(.Rows.Count, 1).End(xlUp).Row
If z = 1 Then z = 2
.Range(.Cells(2, 1), .Cells(z, 3)).ClearContents
End With
z = 3
With ActiveWorkbook
For i = 1 To .Worksheets.Count - 5 '-5, da die letzten Worksheets "Input", "Output", ... nicht meitgezählt werden sollen
rng = .Worksheets(i).UsedRange.Value
For r = LBound(rng, 1) + 1 To UBound(rng, 1)
For c = LBound(rng, 2) To UBound(rng, 2)
With SZ
.Cells(z, c) = rng(r, c)
End With
Next
z = z + 1
Next
Next
End With
Cells.RowHeight = 15
End Sub