ReDim Matrixvariable(1 To Sheets.Count)
For Each Blattname In Sheets
Blattzähler = Blattzähler + 1
Matrixvariable(Blattzähler) = Blattname.Name
Next
For y = 1 To Blattzähler
Sheets(Matrixvariable()).Select
With Selection.Font
.Name = "Arial"
.Size = 8
End With
Next
Dim ws As Worksheet
For Each ws In Worksheets
ws.Columns("D:D").Delete
ws.Columns("A:Y").EntireColumn.AutoFit
ws.Columns("A:Y").EntireRow.AutoFit
Application.CutCopyMode = False
Next
Dim wr As Worksheet
For Each wr In Worksheets
wr.Range("A63:F63").Select
wr.Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
wr.Range("F3").Select
wr.Paste
wr.Range("A63:G63").Select
wr.Range(Selection, Selection.End(xlDown)).Select
Selection.Delete
Application.CutCopyMode = False
Next