Excel VBA copia e cola lado a lado

[Gutelo]

Prezados, Boa Tarde!!
Sou novo aqui no forum e busco mais conhecimento, e gostaria muito da ajuda de vocês.
Fiz um BKP da minha lista de contatos do meu celular, porém vem tudo embaralhado os dados.
Manualmente conseguir colocar desta forma porém demorou muito pois são mais 1.500 contatos, estes contatos são de cliente onde vou enviar por wathsap promoções, sendo que o mesmo precisa esta organizado lado a lado.

Como esta na planilha:
A1 = Contato
A2 = Telefone
A3 = Contato
A4 = Telefone

Preciso muito que fique da seguinte forma:
A1=Contato B1=telefone
A2=Contato B2=Telefone

Obrigado pela ajuda e atenção de todos.

[AfonsoMira]

@Gutelo Boas, veja se este código lhe ajuda.

 

Sub copiaEcola()

y = 1
ultimaLinha = Sheets("DadosOriginais").Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To ultimaLinha Step 2

Sheets("DadosNovos").Cells(y, 1) = Sheets("DadosOriginais").Cells(i, 1)
Sheets("DadosNovos").Cells(y, 2) = Sheets("DadosOriginais").Cells(i + 1, 1)
y = y + 1

Next i

End Sub

 

Sendo que vai copiar em uma folha e colar em outra.

A folha onde terá a lista:
A1 = Contato
A2 = Telefone
A3 = Contato
A4 = Telefone

 

Tem o nome de "DadosOriginais"

 

Já a folha onde vai colar os dados novos tem o nome de "DadosNovos"

[Gutelo]

@AfonsoMira, valeu meu amigo lhe agradeço muito, ficou perfeito.