Copiar celdas que no tengan un valor vacío

Experto, quisiera que por favor me ayudes a crear una macro para lo siguiente: Tengo dos columnas A y B en la columna A tengo datos y en la B sus valores respectivos, quiero copiar los datos (Col A) de aquel valor (Col B) que no este vacío, lo quiero copiar en la hoja2.