VBAの空白行削除について教えて下さい。

質問

以下のサイトにでてくるA列で空白セルを探し出し、その行全体を削除する方法を利用したいです。

書いてあるコードなのですが、

http://veaba.keemoosoft.com/2012/12/376/

Sub DeleteRowsWithBlankCells(ByRef argRange As Range)
On Error Resume Next
argRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

と

Call DeleteRowsWithBlankCells(Range("A1:A10"))

はそれぞれどのように書けばいいのですか？
End　Subの前にCall DeleteRowsWithBlankCells(Range("A1:A10"))を書けばいいのですか？

Callで呼び出してからSub以降ですか？

Sub以降はそのままですか？どこか書き換えるのですか？

Sub以降の書き方が今まで知っている書き方と違うのでよくわからなくなってしまいました。
宜しくお願い致します。

回答No.1

eden3616 · ベストアンサー

何度も処理の中で削除する必要がある場合（他のプロシージャから読みだす）のであれば
以下のようにしてから、マクロ「呼び出し元」を実行してください。

Sub 呼び出し元()
Call DeleteRowsWithBlankCells(Range("A1:A10"))
End Sub

Sub DeleteRowsWithBlankCells(ByRef argRange As Range)
On Error Resume Next
argRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub

一度きりの実行でいいのであれば、以下のようにして
マクロ「DeleteRowsWithBlankCells」を実行してください。

Sub DeleteRowsWithBlankCells()
On Error Resume Next
Range("A1:A10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub