Удалить строку с нулевым значением из ячейки в столбце E1

Question

Программа работает не так, как планировалось. Как удалить строку с нулевым значением из ячейки в столбце E1?

Sub RemoveRows2()

Dim n As Long

n = 1

Do While n <= ThisWorkbook.ActiveSheet.Range("E1").CurrentRegion.Rows.Count

    If InStr(1, ThisWorkbook.ActiveSheet.Cells(n, 5).Text, "0", vbTextCompare) > 0 Then
        ThisWorkbook.ActiveSheet.Cells(n, 5).EntireRow.Delete

 ElseIf InStr(1, ThisWorkbook.ActiveSheet.Cells(n, 5).Text, "NULL", vbTextCompare) > 0 Then
        ThisWorkbook.ActiveSheet.Cells(n, 5).EntireRow.Delete
            
        

    Else
        n = n + 1
    End If

Loop
End Sub