Sub versetzen()
Dim lngFreieZeile As Long
Dim lngLaufzahlSpalte As Long
Dim lngLetzteSpalte As Long
With ActiveSheet
lngFreieZeile = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row + 1
lngLetzteSpalte = .Cells.Columns.Count
For lngLaufzahlSpalte = 25 To lngLetzteSpalte - 24 Step 24
If .Cells(1, lngLaufzahlSpalte) = "" Then Exit For
.Range(.Cells(1, lngLaufzahlSpalte), .Cells(1, lngLaufzahlSpalte + 23)).Select
Selection.Copy .Cells(lngFreieZeile, 1)
Selection.ClearContents
lngFreieZeile = lngFreieZeile + 1
Next lngLaufzahlSpalte
End With
End Sub