Public Sub nächste_Spalte()
Dim loSpalte As Long
With Worksheets("x1")
loSpalte = .Cells(8, .Columns.Count).End(xlToLeft).Offset(, 1).Column
.Cells(8, loSpalte).Value = Worksheets("y1").Range("BD9").Value
.Cells(9, loSpalte).Value = Worksheets("y1").Range("BD14").Value
.Cells(10, loSpalte).Value = Worksheets("y1").Range("BD19").Value
.Cells(11, loSpalte).Value = Worksheets("y1").Range("BD20").Value
.Cells(12, loSpalte).Value = Worksheets("y1").Range("BD25").Value
End With
End Sub