Try this one too.
    For i = [max(if(a1:a10000<>"",row(1:10000)))] To 1 Step -1