COLUMNAS A FILAS, SUPRIMIENTO COLUMNAS

Hola a todos,

Tengo la siquiente base de datos:

TABLA 1.
A B C D E F G
H
1 Cajas Libros Lapices Hojas Gomas Vasos
2 Enero 8 9 7 6
3 Febrer 9 7 3 5 4
4 Marzo 7 9 4 1
5 Abril 6 9 4 1 7
6 Mayo 8 5 8 5

Mi intencion es tratar de transponer la Base de datos de arriba
AUTOMATICAMENTE, pero a la
vez, IGNORAR las columnas que no posean datos. Como pueden ver en la Tabla
resultante, para el mes de Marzo, no existio datos en 'Lapices y Gomas',

lo tanto Excel deberá IGNORAR esas columnas, y tomar solo aquellas que si
posean datos en las columnas, en la fila Marzo, para este caso.

Cuando yo escriba Marzo, en la celda A1, abajo se generará la nueva

transpuesta y con datos suprimidos de la Tabla de arriba (es decir que se
suprimen las columnas que no tienen datos en la Tabla 1, transponiendo
solamente las columnas que si poseen dato)

TABLA 2.
A B C D E
1 Marzo
2
3 Cajas 7
4 Libros 9
5 Hojas 4
6 Vasos 1

He tratado de usar diversas herramientas y funciones pero no he llegado a
optimizar el uso de estas.
Podrian ayudarme en esto?
Gracias.

Hola,
Aplique el programa que David creó, esta excelente por cierto, pero

evitar la seleccion de Rangos Origen y Rango Destino...ya que lo aplicaré
siempre en un mismo rango. Pero lamentablemente no sé de programción de
macros, intenté modificarlo pero es complicado.

Gracias