初心者ながら、EXCEL VBAでファイルを作っています。
EXCELの表にバーコード入力していき、その入力内容によっては関数にてセルのC2番地に0か1の数字が表示されるようにしております。
C2に1が表示された場合には警告メッセージを表示され、入力した値範囲を消すように作ったのですが、その動作が無限ループしてしまいます。
色々ネットを調べて試してみたものの分からずで、どうかご教示頂けないでしょうか。
コードは下記の通りとなります。

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("C2").Value >= 1 Then
MsgBox "ＮＧです。事務へ連絡して下さい。", vbExclamation, Title:="【警告!】"

'C5から下の最終行を探して１つ左のB列に移動。(＝今入力した行のB列)
Range("C5").End(xlDown).Offset(0, -1).Select
'そこから右へ4つ分のセルまでを範囲選択して、そのセルを空白にする。
Range(Selection, Selection.Offset(0, 4)).Value = ""

End If

End Sub

試したこと

ネットを調べて近しいものを改造しながら色々試してみましたが回避できませんでした。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。