ich finde den Fehler nicht, valueToCopy

Sub CopyResult()

    Dim ws As Worksheet

    Dim lastColumn As Long

    Dim i As Long

    

    Set ws = ThisWorkbook.Sheets("Minuten")

    

    

    Dim valueToCopy As Variant

    valueToCopy = ws.Range("AY8").Value

    

    ' Suche nach der ersten freien Zelle in Zeile 11 ab Spalte I

    For i = 9 To ws.Cells(11, ws.Columns.Count).End(xlToLeft).Column

        If IsEmpty(ws.Cells(11, i)) Then

            ws.Cells(11, i).Value = valueToCopy

            Exit For

        End If

    Next i

End Sub