エクセルのマクロで打ち込んだ数字のより分けをしたいと思い下記のコードで

質問

エクセルのマクロで打ち込んだ数字のより分けをしたいと思い下記のコードで実行してみたのですが、空白セルを選択したところで砂時計のままになりフリーズしてしまいます。どこが間違っているのでしょうか？
ちなみに手動で空白選択部分を右クリック→削除（上方）としてもやはり固まってしまいます。やりたいのはA列にランダムに打ち込んだ数字の５千番台、９千番台をB列、C列に移して空白セルを埋めると言うものです。手動でもだめと言うことは何か別の理由も考えられますでしょうか？使用PCはWIN－XPです。

Sub Sorting1()
Dim R As Long

For R = 1 To Cells(Rows.Count, "A").End(xlUp).Row

If Cells(R, "A").Value >= 5000 And Cells(R, "A").Value <= 5999 Then
Cells(R, "B").Value = Cells(R, "A").Value
Cells(R, "A").Value = ""
End If

If Cells(R, "A").Value >= 9000 And Cells(R, "A").Value <= 9999 Then
Cells(R, "C").Value = Cells(R, "A").Value
Cells(R, "A").Value = ""
End If

Next R

On Error Resume Next

Range("A1:C10000").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Delete Shift:=xlUp
Range("A1").Select

End Sub

回答No.1

1050 円（@1050YEN） · ベストアンサー

>手動でもだめと言うことは何か別の理由も考えられますでしょうか？
その通りだと思います。

新規ブックを作成し、同じく手作業での削除や、そのマクロを実行させたらどうなるかが気になります。
※正常に動作するのであれば、そのExcelブックの問題
※正常に動作しないのであれば、そのExcelアプリケーションの問題
として、問題発生の原因を絞ることができると思います。

それと
>使用PCはWIN－XPです。
Officeのバージョンも公開しましょうね。

お礼

的確なご回答ありがとうございました。
別の新規ブックで試したところ正常終了しました！ただどうしても原因がわからず、納得が行かなかったので、今まで試行錯誤しておりました。結局なぜうまくいかなかったのかは掴めませんでした・・。
原因究明はひとまず後回しですが、アドバイスありがとうございました！

補足

ちなみにエクセルのバージョンの記載不備、申し訳ありません。EXEL2002でした・・。