>>901,>>902,>>903,>>904,>>905,>>906ありがとうございます。
>>905のおっしゃる通りNaNというのは私が出力プログラム側で設定したエラーメッセージです。


参考にして下記のコードで試したところうまくいきました。1 step -1という意味が調べても出てきませんが、ウォッチしていくと思い通りの動きをしてくれるのでこれで良いと思います。とても助かりました。

for i = lastrow to 1 step -1
if cells(lastrow,1).value=″NaN″ then lastrow=lastrow-1
else exit for
end if
next i

すべてメモ帳に保存して勉強します。とても参考になりました。