Bien, entra al Editor (con ALT y F11), inserta un módulo y allí copia la siguiente macro:
Sub paseEtiquetas()
' x Elsamatilde
'se trabaja desde hoja Etiquetas
Sheets("ETIQUETAS").Select
'se establece el fin de rango según col A ------ AJUSTAR
fini = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
[A3].Select '1er celda de la hoja activa ----AJUSTAR
'se recorre la col A de hoja Etiquetas
While ActiveCell.Row <= fini
'busca ese dato en hoja VBA, col A
dato = ActiveCell
Set busco = Sheets("VBA").Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encuentra lleva datos de su fila
If Not busco Is Nothing Then
colx = Sheets("VBA").Cells(busco.Row, 2).End(xlToRight).Column
Sheets("VBA").Range("B" & busco.Row).Resize(1, colx - 1).Copy Destination:=ActiveCell.Offset(0, 1)
End If
'pasa a la fila siguiente
ActiveCell.Offset(1, 0).Select
'repite el bucle
Wend
MsgBox "Fin del proceso.", , "INFORMACIÓN"
End Sub
Estoy asumiendo que los nombres de etiquetas en hoja ETIQUETAS también se encuentran en col A... Ajusta la letra donde coloqué los comentarios 'AJUSTAR'