How i can make that go till lastrow.

sub rebeat()

If Range("B5") = 0 Then
Range("C5").Value = Range("A5")
ElseIf Range("B6") = 0 Then
Range("C6").Value = Range("A6")
ElseIf Range("B7") = 0 Then
Range("C7").Value = Range("A7")
ElseIf Range("B8") = 0 Then
Range("C8").Value = Range("A8")


End If

end sub

Please wrap code with code tags - thx

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post