Welcome to the forum albe.btz!
Unfortunately I can't open your file right now, but instead of using Do While and Loop, you can set the entire range and then use FOR and NEXT.

[VBA]LAST_ROW = ActiveSheet.UsedRange.Rows.Count[/VBA]

And then:

[VBA]FOR I = 1 TO LAST_ROW
'Your code here
NEXT I[/VBA]

This way, you'll perform the desirable instructions to the last row of your worksheet.

Hope it helps!

Regards,

Douglas