Bom dia,

segue anexo minha contribuição!

Favor fazer os testes e dar o FeedBack.

Não se esqueça de mudar o "Caminho".

Se te ajudei, não esqueça de dar o like e marcar a postagem como "Resolvido".

Abraços!

Uma outra possibilidade>>Altere sua rotina conforme abaixo<<<

Public Sub IMPORTA()
Dim Texto As String, Path As String
Dim L As Long        'linha de gravação

'altere para caminhonome onde seu arquivo está
Path = "D:00NUBANK.txt"
'abre o arquivo texto para leitura.
Open Path For Input As #1
L = 8:  Cont = 1
'loop para percorrer todas as linhas do arquivo texto
Do While Not EOF(1)
   Line Input #1, Texto 'lê uma linha
   Cont = Cont + 1
    'Clean - remove caracteres não imprimíveis.
    'LTrim remove espaços a esquerda.
    Texto = WorksheetFunction.Clean(LTrim(Texto))
    'Separa a linha em termos separados por espaço
    separa = Split(Texto, "#")
    'Grava os termos nas celulas
    For x = 0 To UBound(separa)
        If x = 0 Then
            Cells(L, x + 3) = CDate(separa(x))
        ElseIf x = 2 Then
            Cells(L, x + 3) = CDbl(separa(x))
        Else
            Cells(L, x + 3) = separa(x)
            If separa(x) Like "*Paypal*" Then Cells(L, x + 4) = "P"
        End If
    Next
    L = L + 1
Loop
Close #1 'fecha o arquivo texto
End Sub

pessoal
Desde ja agradeço as duas resposta e peço desculpas por não ter respondido antes. estive viajando por uns dias..

Leandro: eu não entendi porque tenho que ter 3 macros . Pensei que tinha como fazer tudo em uma única até pelo que entendi vc primeiro importa depois procura e depois formata. Esta funcionando mas na hora de executar tenho que prestar atenção. e não quero ter que colocar um botão em cada planilha

No entanto tem um problema : a planilha que te enviei tem apenas uma aba para facilitar a criação da resposta. Mas a planilha que tenho tem 12 abas. Uma para cada mês Você fixou como aba um . Desta forma quando importo os dados preciso que va para a aba corrente e não para a aba 01. Tem como alterar isso?

Em relação a busca ja adaptei

segue a planilha alterada

Desde já agradeço

Ha mais uma coisa : se for possivel formatar a coluna de valor sem o simbolo monetario, ou seja ficaria assim por exemplo 98,12.

grato

Bom dia.
Eu consideraria a hipótese de importar os dados via power query.

Bom dia!!
Por isso sempre digo para postar a planilha ou a demanda REAL, para evitar retrabalho...

Levando em consideração que este fórum não serve para nada se não contribuir de alguma forma para ajudar os usuários à usarem a cabeça e aprender, minha intenção ao colocar cada procedimento em uma macro separada, foi para organização e para que você possa, além de receber a solução, entender o que fiz.

Quando eu tiver tempo, mexo na sua planilha novamente, estou agarrado com um projeto aqui.

Abraço!

Dei uma olhada aqui!

Veja se é isso que voce precisa...
Desfixei a planilha em que será executada a macro que formata e encontra as "palavras-chave".

Com relação à importação, não mexi, pois voce não pediu.
De qualquer forma, você pode usar o exemplo "For each" para desfixar a importação se desejar.

OBS: Não esquece de alterar o caminho

Abraço!