Madiante macro transporner un rango y eliminar los iguales

Pido ayuda con esta macro

El rango B4:AB6 contiene datos:

Del B4:AB4 contiene nombres y EL B6:AB6 contiene moneda, yo quería transponerlo y si hubiera iguales que los ignorara