For Each loop não excluirá todas as linhas com valores específicos

Desejo excluir todas as linhas que não contêm o valor "Total" no intervalo ("B11: B25").

Abaixo está o meu código.

Dim cell As Range

For Each cell In Range("B11:B25")
    If cell.Value <> "Total" Then
    cell.EntireRow.Delete
End If

Next

End Sub

O código acima excluirá apenas algumas linhas com células que não possuem o valor "Total". Se eu tiver que excluir todas as linhas que não contêm "Total", terei que executar isso várias vezes, o que não é prático.

questionAnswers(2)

yourAnswerToTheQuestion