マクロで、特定のワードが入ってる行より上を削除したい

特定の文字が入っている行より上の行全部を削除したいのですが
どうすれば良いでしょうか。

B列に「メニュー」と入っている行より上の行を削除したいのですが
行の位置はいつも変わります。
説明行数と空白行数はファイルによって異なるので、
「メニュー」が何行目になるかが、いつもバラバラです。
――――――
説明1
説明2
空白行
メニュー
――――――

試行錯誤の結果、以下のように書きましたが
「.Rows」の行がエラーになってしまうようです。
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
Sub Step_01()
Dim a
With Worksheets("集約")
a = Application.WorksheetFunction.Match("メニュー", .Range("b1:b100"), 0)
.Rows("1:a").Delete
End With
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
どのように書き換えればよいでしょうか？

No.1 回答者： hana-hana3 回答日時： 2010/03/11 16:51

＞.Rows("1:a").Delete

変数を””で括るのは、初心者の過ちですね。

.Rows("1:" & a).Delete

この回答へのお礼

はい、初心者でございます、、、
教えて頂いたように括りなおしたら、出来ました！！
ありがとうございます。

お礼日時：2010/03/11 17:11