エラー処理条件

Question

Sheets("Sheet1").Range("D2:D250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 

がどのように私はそれを避けるために、コードを変更することができますDの列には空のセルが存在しない場合は、以下のコードを実行を停止ライン？

Answer 1

On Error Resume Next 
Sheets("Sheet1").Range("D2:D250").SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
On Error Goto 0