Galera, o código abaixo varre um acoluna deletado a linha conforme o critério, só que preciso adicionar mas uns 3 critérios dentro desse código para ficar mais facil e executar apenas uma vez.

alguém saberia como fazer? tentei uzar o OR mas não deu certo.

Sub deleteRow()
Dim i As Integer
    With ActiveSheet
        i = 1
        While i < 2900
            If CStr(.Cells(i, 3).Value) = "Total do Agente" Then
                .Rows(i).Delete   
            Else
                i = i + 1
            End If
        Wend
    End With
End Sub