[Resolvido]"Inverter tabela cruzada" - transformar colunas em linhas

Tenho a seguinte tabela:

Tabela 01
Codigo      1        2        3
  Maca      a     100      azul
  Banana   b      30       verde


Preciso de uma consulta ou nova tabela

Tabela 02
Codigo  Coluna   Valor    
 Maca       1          a
 Maca       2         100
 Maca       3         azul
 Banana    1          b
 Banana    2         30
 Banana     3        verde


Alguma ideia de como  fazer em vba?

Pesquise Consulta de Referencia Cruzada, se quiser criar tabela utilize consulta criar tabela. veja link abaixo
"https://juliobattisti.com.br/artigos/office/consultasavancadas_p5.asp"

Maicon, pelo que entendo em fazer tabela cruzada. Pode-se fazer da tabela 02 para a tabela 01.

Preciso fazer "uma inversão de tabela cruzada" da tabela 01 para a tabela 02