Macro de búsqueda y copiar valores

Hola valedor, no tienes por ahí una macro que busque y compare valores entre una hoja1 y una hoja2, tengo en cada una los sig datos id, clave, nombre, vantas1 y ventas2, en la hoja1 tiene los valores para cada celda en la hoja2 tiene valores solo en clave y nombre, lo que requiero es que compare las dos hojas por el campo de clave si el valor de clave de la hoja1 esta en la hoja2, extraer los valores de la hoja1 como son; id, ventas1 y ventas2 y pegarlos en la hoja2 y así respectivamente hasta terminar. Agradezco tu ayuda y gracias de antemano