Compare and copy data

[Mathsec]

Buenos días, necesito una macro para comparar la columna A en la hoja 1 y la hoja 2 y, si coincide, copie la referencia en la hoja 1, columna B. Ejemplo adjunto. Gracias