Função SE na Programação VB - Dificuldades

[toadpoa]

Amigos,

Estou tentando organizar dados que um relatório extraído de sistema antigo. 

 

Nesse relatório vem um cadastro a cada 50 linhas, entretanto, alguns deles tem 54. Por isso não consigo fazer uma formula para extrair só a informação que preciso nas referidas células. Pensei na seguinte solução:

 

Verifica A1, se for o termo "Nome:", então vai verificar A51, se for o termo "Nome:",então verifica A101... Assim por diante.

Caso Ax não for "Nome:", então ele exclui 4 linhas anteriores (assim o que era 54 vira 50) e segue o baile.

 

Tentei fazer isso de uma forma meio burra (mas é o máximo que consegui)

 

sub Funcao0 

    Sheets("Minhaplanilhaauxiliar").Select
    Range("M1").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('Planilhacomdados!R[21]C[-12]=""Nome:"",funcao1,"funcaoexluir0")"

 

sub end

 

Aí essa funcao0 seria um botão.

 

A funcao1 seria para verificar a o próximo cadastro e faria referência para funcao2 (e assim por diante)

 

A funcaoexcluir0 seria um comando para excluir as 4 linhas anteriores

 

 

Alguma sugestão?

[Wendell Menezes]

Pode postar um exemplo do seu relatório, onde a macro deveria funcionar?