Crear tabla trasponiendo columnas según valores

[twomind]

Buenas tardes,

Necesito crear una macro que me genere filas dependiendo de cuáles sean los valores de la tabla inicial. Lo que debe de hacer es transponer los datos que vienen en cada columna para hacer un listado basado solo en la columna "envío", y asignando unos números de referencia correlativos para cada columna inicial.

Adjunto ejemplo con la Hoja 1 como origen y la hoja 2 como resultado deseado, e incluyendo en ésta última una tabla ejemplo con las referencias a generar.

He estado probando con mi limitado conocimiento, grabando algunas acciones y tratando de crear condiciones pero me temo que es demasiado complejo para mi.

Agradecería mucho si alguien me puede echar una mano.

Muchas gracias

MacroTabla.xlsx

[JSDJSD]

Prueba y comenta 

MacroTabla.xlsm

[twomind]

Hola JSDJSD,

Funciona perfecto, la he adaptado un poco a la necesidad final y sale todo como esperaba. 

Un millón de gracias

[JSDJSD]

Me alegro, pero no olvides agradecer a quien te ayuda o intenta ayudar, y el foro se agracede mediante el corazoncito que hay en la parte inferior derecha.