RAMZERO,

Boa noite!

Anexe seu arquivo.

wagner, bom dia, tudo bem?

Arquivo anexado

Tentei usar essa estrutura abaixo no código, mas não funcionou

For c = c To Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("E" & c).Value = Application.WorksheetFunction.VLookup(Range("H1:I4"), 2, False)
    Range("F" & c).Value = Application.WorksheetFunction.VLookup(Range("H1:I4"), 2, False)
    
Next c

De tempos em tempos a máquina me envia novos códigos que vão sendo acrescentados na última linha das colunas A e B, por isso queria automatizar o processo em VBA

Sinto que falta alguma coisa no código acima

Obrigado

Segue:

Sub Procv()
Dim ul As Long
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To ul
Plan1.Range("E" & i).Value = _
WorksheetFunction.VLookup(Plan1.Range("A" & i).Value, Plan1.Range("H1:I" & ul), 2, 0)
Plan1.Range("F" & i).Value = _
WorksheetFunction.VLookup(Plan1.Range("B" & i).Value, Plan1.Range("H1:I" & ul), 2, 0)
Next i
End Sub

Mais uma vez resolvido xlarruda

Rodou certinho!

Obrigado