Identificar e excluir linhas

Olá,

Eu tenho uma planilhja de um relatório que varia em número de linhas e nomes.
Eu preciso de um comando que identifique a linha que contém o texto "Total:1" e exclua TODAS as linhas abaixo dessa.

Exemplo:

1 João R$ 10,00
2 Daniel R$ 9,00
3 Total:1 R$ 19,00
4
5 Leandro R$ 7,00
6 Thaís R$ 8,00
7 Total:2 R$ 15,00
8
9 Total: R$ 34,00

Depois de executar o que eu preciso, a tabela ficaria da seguinte forma;

1 João R$ 10,00
2 Daniel R$ 9,00
3 Total:1 R$ 19,00
4
5
6
7
8
9

Muito obrigado!

Boa noite!!

Considerando que os dados estão na coluna A

Código:

Sub testAleVBA()
Dim Found As Range
Set Found = Columns("A").Find(what:="Total", lookat:=xlPart)
If Not Found Is Nothing Then Found.Resize(500).EntireRow.Delete
End Sub

Olá,

Primeiramente, muito obrigado!

Funcionou perfeitamente, ao menos para o relatório que eu tenho aqui em mãos, vou testar com outros depois.

Como eu sei muito pouco dos comandos de VBA, se não for pedir muito, poderia me dizer o que cada linha faz exatamente?

mais uma vez, obrigado!

Boa noite!!

Veja o comentário

Código:

Sub testAleVBA()
Dim Found As Range '<-- Variável declarada do tipo range
Set Found = Columns("A").Find(what:="Total", lookat:=xlPart) '<-- Metodo Find, para encontrar a palavra "Total" na coluna A
If Not Found Is Nothing Then Found.Resize(500).EntireRow.Delete '<-- caso seja incontrado deletará as linhas
End Sub