Como hacer lo siguiente en excel?

[GEMO]

Hola, espero no sea tarde para contestar intenta lo siguiente:
Dim i As Integer
Dim final As Integer

For i = 2 To 10

If Hoja2.Cells(i, 1) = "" Then
final = i - 1
Exit For
End If
Next

For i = 2 To final
If Hoja1.Cells(3, 1) = Hoja2.Cells(i, 1) Then
Hoja1.Cells(3, 2) = Hoja2.Cells(i, 2)

Exit For

End If
Next

donde tu tendrías que cambiar el número de hoja según las tengas y la referencia de celdas como las necesites