VBA 21行目～表の最終行まで行削除

質問

WinXPでExcel2003を使用しています。

VBAで、21行目から表の最終行までの行削除するマクロを作りたいのですが、上手くいきません。

Sub 行削除()

Range("A21").CurrentRegion.Select
Selection.Delete

End Sub
だとその上下に文字が入ったセルがあると一緒に削除されてしまうので、
どの様にすればいいのか分からないでいます。

最終行を何行目と特定せずに表の最終行を取得して、
削除範囲を設定出来るものが希望です。

どなたか教えて下さると助かります。
よろしくお願い致します。

回答No.1

n-jun · ベストアンサー

Range("A21", Cells(Rows.Count, 1).End(xlUp)).EntireRow.Delete
みたいな事でしょうか？

お礼

Moduleに貼り付けて実行してみたら、
私の希望通りになりました！

EntireRowプロパティを勉強して次にも活かせるようにしたいです。

大変助かりました。
どうもありがとうございました。