Suppression de ligne commençant par une cellule vide

Par exemple quand je rentre ce code:

Sub test()
Dim Cell As Range
Set DataRange = ActiveSheet.Range("A1:A6000")
For Each Cell In DataRange
If Left(Cell.Value, 1) = "" Then Cell.EntireRow.Delete
Next

End Sub

ça m'affiche un message d'erreur "Impossible d'exécuter le code en mode arrêt"