Macro pasar de vertical a horizontal

Buenas Noches. Tengo unos datos mas de 8000 registros como este ejemplo:
REFERENCIA CÓDIGO UBICACIÓN
A0007A 0007 D01E09C
A0007A 0007 D01E18A
A0007A 0007 D01E19C
A0014A 0014 CART
A0014A 0014 D01E08E
A0014A 0014 D01E18A
A0014A 0014 D01E18B
A0014A24 0014 CART
.......... Etc
Como ven que las referencias se repiten porque tienen diferentes ubicaciones, necesito que una macro busque en un listado asi vertical referencias y me las consolide horizontalmente asi:
REFERENCIA UBICA 1 UBICA 2 UBICA 3 UBICA 4 UBICA 5 UBICA 6 .... Etc
A0007A D01E09C D01E18A D01E19C
A0014A CART D01E08E D01E18A D01E18B
A0014A24 CART D01E05D D01E16C
..... Etc
Favor tener en cuenta que no se pueden repetir la columna referencia cuando pase a horizontal los datos, es decir que en esa fila que coloque esa referencia, debe contener todas las ubicaciones que pueda encontrar de esa referencia.

Me ayudaron en un código y las pasa, pero cuando aplico un filtro para revisar las repetidas, me salen repetidas.

Por favor ayudenme, con esta macro, gracias