Excel（エクセル）活用コミュのセル範囲の削除

おはようございます。

現在、ユーザーフォームにて項目の削除マクロを作ろうと思っています。
で、元々は行自体を削除するマクロを組んでいたのですが、行自体ではなく必要なセル範囲のみ削除し、上方向へシフトするマクロに組み直したいのです。

今書いている削除マクロの一部が↓
-------------------------------------------------------------------
Dim myStr As String
Dim myCell As Range
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
myStr = mysheet '検索する文字列
Do
'検索
Set myCell = Columns("B").Find(myStr, , xlValues, xlWhole)
'検索にヒットしなければループを抜ける
If myCell Is Nothing Then Exit Do
'ヒットしたセルの行を削除
myCell.EntireRow.Delete

-------------------------------------------------------------------
となっており、このマクロの「ヒットしたセルの行を削除」の部分を「ヒットしたセルとその右のセルを削除し(※B6セルがヒットした場合B6、C6セルを削除）、上へシフト」と書き換えたいのですが、どのように書き換えればいいのでしょうか？？

2003　XP　です。宜しくお願いします。