Não sei se foi o arquivo, mas segue então

Não consegui anexar o arquivo
segue o código

Sub Achar()

Application.ScreenUpdating = False

Dim M           As Worksheet
Dim UltCel      As Range
Dim Nome        As String
Dim Planilha    As String
Dim Menu        As Worksheet

Set M = Sheets("Movimento")

M.Select
M.Range("E2").Select

  Nome = ActiveCell.Value

Set Menu = Sheets("Menu")
Menu.Select
        Menu.Range("L10").Select
 
        Do While ActiveCell.Value <> ""
       
            If ActiveCell.Value = Nome Then
            
                ActiveCell.Offset(0, 1).Value = Fabio
                                    
                    Exit Do
                
                Else
                                 
                 ActiveCell.Offset(1, 0).Select
               
            End If
      
        Loop
 
Application.ScreenUpdating = True

MsgBox "Processo concluído"


End Sub

Sub Buscar()

Dim M As Worksheet
Dim Menu As Worksheet

Set M = Sheets("Movimento")
Set Menu = Sheets("Menu")

M.Select
Nome = Range("E2").Value        ' Pega o que está na célula E2
Menu.Select
Range("L10").Select

Do While ActiveCell.Value <> ""

    If ActiveCell.Value = Nome Then
    

       Menu.Range(0, 1).Select
      
        Exit Do
  Else
  ActiveCell.Offset(1, 0).Select
  
   End If

Loop
  
      ActiveCell.Offset(1, 0).Select
Exit Sub

'Nome = Nothing

Application.EnableEvents = True


End Sub

Fabio RS,

Bom dia!

Solicitamos, por gentileza, ao postar código VBA, utilizar a ferramenta CODE existente logo no início da caixa de mensagens (quinto botão da esquerda para a direita).

Quanto a sua dúvida, fiz um pequeno exemplo (arquivo anexo) e está tudo certo com o seu código. Talvez, o seu IF não esteja encontrando nada em razão de que você está procurando por mês ou por data e o VBA tem algumas nuances quando se trata de datas. Para identificar corretamente, sugiro que você faça apenas um pequeno exemplo do seu arquivo original e anexe o mesmo aqui. Ou então aproveite o exemplo abaixo e substitua pelos seus dados reais para ver o que ocorre.

Conforme seu modelo postado em https://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=6493, deve-se ao fato de o parametro de pesquisa ser diferente do pesquisado --> Pesquisa "Junho", range pesquisada "junho"
Utilise com Ucase (ou Lcase) para padronizar as descrições --> If UCase(ActiveCell.Value) = UCase(Nome)