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