Erreur à la fin d'une boucle do while

Bonjour,

Dans la feuille Excel ci-dessous j'arrive bien à supprimer les lignes contenant la valeur "nul" en commençant par la fin mais cela me génère une erreur è la fin de la procédure car la boucle continue une fois arrivée en haut de la colonne comment l'arrêter à la ligne B2 pour que la boucle cesse (erreur 1004 erreur définie par l'application ou par l'objet)

Sub bouclewhilesupressionnul()
 

Range("B25").Select
Do While ActiveCell <> ""
If ActiveCell = ("nul") Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Select
Loop

End Sub