Hola te paso el codigo que espero sea lo que necesitas.
No puedo adjuntar archivos, por lo que si necesitas te lo envie, enviame un mensaje con tu mail.
Saludos
Cita: Sub Macro1()
Dim MyRango As Range
'Asignamos el rango donde estan los datos a buscar.
'De esta forma si la cantidad de registros cambia no hay problemas
Set MyRango = ThisWorkbook.Worksheets("Hoja2").Range("B2").Curre ntRegion
'Recorremos la hoja de los datos que buscamos y ponemos en la columna
'2 en que fila de la hoja 2 esta
For x = 2 To Range("a3").CurrentRegion.Rows.Count
Cells(x, 2).Value = WorksheetFunction.Match(Cells(x, 1).Value, MyRango, 0)
Next
End Sub