Bom dia!!

Eu não encontrei o arquivo no seu anexo!

Att

Por algum motivo o arquivo não entrou na compactação.
Segue agora corrigido.

Boa tarde!!

Seria isso?

Sub AleVBA_22301()
    Dim cell As Range, rngFind As Range, counter As Long

    With Sheets("Sheet2")
        Set rngFind = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    
    For Each cell In rngFind
        Set Found = Sheets("Sheet1").Range("B:B").Find(What:=cell.Value, _
                                                       LookIn:=xlValues, _
                                                       LookAt:=xlPart, _
                                                       MatchCase:=False)
                                                       
        If Not Found Is Nothing Then
            Found.Offset(, 1).Value = cell.Offset(, 1).Value
            counter = counter + 1
        End If
    Next cell
    
End Sub

Att

Obrigado Alexandre! Funcionou parcialmente, preencheu alguns campos mas ele pegou toda a coluna, inclusive dos meses que eu não queria. Algumas linhas não funcionaram e no final deu erro "Type mismatch" no código

Set Found = Sheets("Sheet1").Range("B:B").Find(What:=cell.Value, _
LookIn:=xlValues, _
LookAt:=xlPart, _
MatchCase:=False)

Bom dia!!

No meu teste, eu não tive erro ao executar, isso porque eu tenho mal habito com células mescladas, e por isso eu a removi.

Se houver células mescladas, remova e refaça seus testes!!

Att