Macro para transponer datos

[juancarlos23]

Buen Dia A todos

Necesito crear una macro para transponer datos que tengo en filas a columnas pero manteniendo el dato que tengo en la primera celda, esta es la data

[TABLE=width: 50]

[TR]

[TD]1[/TD]

[TD]A[/TD]

[TD]B[/TD]

[TD]C[/TD]

[TD]D[/TD]

[TD]E[/TD]

[TD]F[/TD]

[TD]G[/TD]

[/TR]

[TR]

[TD]2[/TD]

[TD][/TD]

[TD][/TD]

[TD]local1[/TD]

[TD]local2[/TD]

[TD]local3[/TD]

[TD]local4[/TD]

[TD]local5[/TD]

[/TR]

[TR]

[TD]3[/TD]

[TD]EAN[/TD]

[TD]Descripcion[/TD]

[TD]id_3[/TD]

[TD]id_4[/TD]

[TD]id_5[/TD]

[TD]id_6[/TD]

[TD]id_7[/TD]

[/TR]

[TR]

[TD]4[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD]x[/TD]

[TD][/TD]

[TD]x[/TD]

[TD][/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]5[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD]x[/TD]

[TD]x[/TD]

[TD]x[/TD]

[TD]x[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]6[/TD]

[TD]33333[/TD]

[TD]camisa m[/TD]

[TD][/TD]

[TD]x[/TD]

[TD]x[/TD]

[TD]x[/TD]

[TD]x[/TD]

[/TR]

[/TABLE]

me explico cuando se ejecute la macro los datos tienes que pasar a esta forma

[TABLE=class: grid, width: 50]

[TR]

[TD]ID_Local[/TD]

[TD]Nombre_local[/TD]

[TD]EAN[/TD]

[TD]Descripcion[/TD]

[TD]datos[/TD]

[/TR]

[TR]

[TD]3[/TD]

[TD]local1[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]4[/TD]

[TD]local2[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]5[/TD]

[TD]local3[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]6[/TD]

[TD]local4[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD][/TD]

[/TR]

[TR]

[TD]7[/TD]

[TD]local5[/TD]

[TD]11111[/TD]

[TD]camisa xl[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]3[/TD]

[TD]local1[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]4[/TD]

[TD]local2[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]5[/TD]

[TD]local3[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]6[/TD]

[TD]local4[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD]x[/TD]

[/TR]

[TR]

[TD]7[/TD]

[TD]local5[/TD]

[TD]22222[/TD]

[TD]camisa s[/TD]

[TD][/TD]

[/TR]

[/TABLE]

espero me puedan ayudar, se los agradecería mucho

Nota: los datos que pongo es ta tablas son ejemplos en el adjunto esta los correctos,si le pueden poner comentarios al código para entenderla seria super para ir aprendiendo

para macro.zip

[kalimerodrag]

Mira a ver si te vale esta macro.

Un saludo.

para macro2.zip