Copiar e colar transpondo selecionando-se células de destino

Question

Ei aí pessoal, tudo bem?

Preciso muito de ajuda com uma macro. Recebo direto no trabalho algumas planilhas de outro setor com informações ordenadas em colunas. Porém, necessito copiar essas informações para uma linha. Contudo os parâmetros nessa outra linha estão fora de ordem e espaçados, além de conterem outros a serem preenchidos com novos dados. 

Gostaria de saber se é possível (e como) criar uma macro que já automatize esse processo, copiando os campos da coluna e colando ja fazendo a transposição e a associação com os campos corretos nas novas linhas.



Fiz uma simples demonstração no excel. 

Tipo	Madeira	Cor	Armação	Qualidade	Resis.	Bio.	Tipo	Código	Preço	Textura	Textura
Qualidade	5.5	azul		5.5			Madeira		15.5		sim
Cor	azul
Textura	Sim
Preço	15,50

Answer 1

Baseado no seu exemplo.

Sub teste()
    ultima_linha = Range("A2").End(xlDown).Row - 1
    ultima_col = Range("A1").End(xlToRight).Column + 1

    dados1 = Application.Transpose(Cells(2, 1).Resize(ultima_linha, 1).Value)
    dados2 = Application.Transpose(Cells(2, 2).Resize(ultima_linha, 1).Value)

    Cells(1, ultima_col).Resize(1, UBound(dados1)) = dados1
    Cells(2, ultima_col).Resize(1, UBound(dados2)) = dados2
End Sub