Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim linha, col As Long

linha = 2
col = 2

While Plan1.Cells(1, col).Value <> ""



Plan2.Cells(linha, 1).Value = Plan1.Cells(1, col).Value

Plan2.Cells(linha, 2).Value = Plan1.Cells(2, col).Value

col = col + 1
linha = linha + 1

Wend

End Sub

Se quiser aprender Excel VBA, o Youtube é uma boa universidade. Mas é preciso ter muita força de vontade (coisa rara na humanidade):

https://www.youtube.com/results?search_query=excel+vba

Mas, se quiser ter uma formação sólida, comece pela lógica de programação:

https://www.youtube.com/results?search_query=logica+de+programacao

Muitas pessoas gostam de fazer perguntas antes de pesquisar na internet. Para essas pessoas é mais cômodo, mas elas não sabem que estão prejudicando a própria aprendizagem.

Nossa ficou excelente, não imaginava que ficaria tão bom assim.
Klarc muito obrigado e obrigado também pela dica, vou começar a estudar mais a fundo o excel e começando por esses vídeos.

rod87

Tem que marcar como Resolvido a resposta que atendeu a tua dúvida, não a tua postagem e além disso você não usou a mãozinha para agradecer ao colaborador.

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador