supprimer lignes vides après entre lignes 2 et 270

Bonsoir,
Je souhaite supprimer les lignes vides entre les lignes 2 et 270.
J'ai cette procédure:

Sub Supprimer_les_lignes_vides()
' supprimer la ligne si la cellule de la colonne A est vide
Dim i As Integer
For i = Range('a270').End(xlUp).Row To 2 Step -1
If Cells(i, 1) = '' Then
Rows(i).Delete
End If
Next i
End Sub

Mais le problème est qu'elle s'arrête après la dernière ligne non vide, au lieu d'aller juqu'à la ligne 270.

merci d'avance pour votre aide.