Excel上で取り消し線の付いた行を除く行をデータテーブルにしたいです。

いつもありがとうございます。
取り消し線を抽出できました。
ただ、、
900行程の処理に20分程度かかり、また、最後には、
以下のエラーで停止致しました。
プログラムは、スタート直後にこちらのものを付けているだけです。
何が原因か分かりますでしょうか。
image