Geht es auch ohne Sprungmarke?

Sub InFC_Suchen()
Dim i As Long
Nochmal:
With Worksheets("Kalkulation")
For i = 8 To .Range("FC65536").End(xlUp).Row
If .Cells(i, 159) = "0" Then
If Range("FJ" & i).Value < Range("FK" & i).Value Then
Range("FC" & i).Copy
Range("FC" & i - 1).PasteSpecial Paste:=xlPasteValues
GoTo Nochmal
Else
Range("FJ" & i).Copy
Range("FC" & i).PasteSpecial Paste:=xlPasteValues
End If
Exit For
End If
Next i
End With
End Sub