Did you use the simpler code from my second example? If so, it's set
to work on contiguous rows so there can't be any blank rows because the
code will stop. You could change it so that it will work on the rows
in your range . . .

Dim myRange as Range
Dim myCell As Range
Set myRange = Range("A2:A722")

Instead of using a "Do" loop you could write . . .

For Each myCell in myRange
*** previous code goes here ****
next myCell

That should loop through all your cells but you would want to also add
a line to not process an empty cell . . .

For Each myCell in myRange
If myCell < "" Then
*** previous code goes here ***
End If
Next myCell