エクセルのコード表示について

質問

○月○日 （月曜日）
　　A　　 　B　　　C　　　D　　　E
1　usagi
2　kame
3 tonbo
4 ・・ABC 3 6
5 ・・DEF 4 5
6 ・・KAME 5 5
7 ・・USAGI 8 8

以下　同文

○月○日 （火曜日）
・・kirin 6
・・LION 1
yamada 11
saitou 5
・・inu 8

○月○日 （水曜日）
・・kemusi 9
koyama 8
・・sakana 6
・・imoi 7
・・nabe 9

これが土曜まで続きます

・・○○ 数字 　数字

を消したいので、前にほかのサイトで

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Value Like "・・*" Then
c.Resize(, 3).ClearContents
End If
Next
End Sub

を教えてもらいました
コード表示のところに入力したら、 ・・○○ 数字 だけを消せるということで
今日まで使ってきたのですが、急に

コード表示から実行すると

実行時エラー’1004‘：

アプリケーション定義または

オブジェクト定義のエラー

というのが出てくるようになりました

すると、月曜と火曜はきれいに ・・○○数字は消えるのですが、水曜以降はそのまま残っています

月曜から土曜まできれいに消す方法は無いでしょうか？
素人にわかりやすいように教えてください

完全に削除できるシートと出来ないシートがあります
出来ないシートを出来るようにしたいです

Sub Test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Value Like "・・*" Then
c.Resize(, 3).ClearContents
End If
Next
End Sub

じゃなくても構いませんので、簡単に出来る方法などもありましたら
教えてください

回答No.1

aokii

１～１２月及び１～３１日をそれぞれ検索して削除した方が正確に消せます。

補足

回答ありがとうございます

・・○○　数字　数字　はかなりの量がありますので
手作業では無理ですので、質問しました
引き続き、お願いします