Alle Zeilen löschen, die in Spalte A keinen Wert haben

Es sollen aus einem bestimmten Bereich alle Zeilen gelöscht werden,
in denen Spalte A leer ist.
Sub LeerLöschen()
   On Error Resume Next
   Application.Intersect(Range("A1:A200"), _
      Cells.SpecialCells(xlCellTypeBlanks)).EntireRow.Delete
End Sub