Delete Row Macro stops at blank cell

Hello Experts,

Please see the below code and advise why it would stop at a blank cell and not delete the entire row. Works as it should up until it encouters a blank cell, then stops.

Appreciate any and all advice in advance!

Sub DeleteRow()

Set currentcell = Range("n2")
Do While Not IsEmpty(currentcell)
Set nextcell = currentcell.Offset(1, 0)
If Not currentcell.Value Like "Performance*" Then
currentcell.EntireRow.Delete
End If
Set currentcell = nextcell
Loop


End Sub