Macro Excel - Gravar Colunas de uma planilha(Plan1) em outra em uma linha(Plan2)

[Icarnal]

Boa tarde,

Bem sou inexperiente em Excel Avançado e por isso estou precisando de uma ajuda de vocês.

Meu problema é o seguinte:

1. Tenho uma planilha chamada Plan1 onde nesta planilha os dados são colocados desta forma

COLUNA A | COLUNA B

Nome | Igor

Idade | 20

Cidade | Fortaleza

Onde na COLUNA A é um texto fixo e na COLUNA B que irá receber os dados.

2. Tenho uma planilha chamada Plan2 onde esta planilha recebe os dados assim:

NOME | IDADE | CIDADE

Igor 20 Fortaleza

Quer dizer, preciso pegar os dados da Plan1 em coluna, jogar na Plan2 como linha, sendo que após os dados da Plan1 serem gravados na Plan2, a COLUNA B da Plan 1 seja limpa novamente e ao inserir dados novamente na COLUNA B da Plan1, estes novos dados serão salvos na proxima linha da Plan2.

Sei que estou pedindo d+, mas, agora é questão de muita necessidade.

[XL Solucoes]

Olá, crie a macro abaixo depois vincule a um botao de comando

Se tiver mais alguma duvida é só responder.

Sub Macro1()

    Application.ScreenUpdating = False

    'Definição de variáveis
    Dim Nome, Idade, Cidade

    Nome = Range("Plan1!B1")
    Idade = Range("Plan1!B2")
    Cidade = Range("Plan1!B3")

    'Ir para última linha de Plan2
    Sheets("Plan2").Select
    Range("A1").Select
    If ActiveCell.Offset(1, 0) <> "" Then
        Selection.End(xlDown).Select
    End If
    ActiveCell.Offset(1, 0).Select

    'Preenchimento dos campos
    ActiveCell.Offset(0, 0) = Nome
    ActiveCell.Offset(0, 1) = Idade
    ActiveCell.Offset(0, 2) = Cidade

    'Limpeza dos campos
    Range("Plan1!B1") = ""
    Range("Plan1!B2") = ""
    Range("Plan1!B3") = ""

    'Volta para tela de lançamento
    Sheets("Plan1").Select

End Sub

Abraços