Excel Recortar e colar Dados em outra coluna sequencialmente

[MatheusFelipe]

Olá Clube,

Estou precisando de uma macro que possibilite eu recortar da Planilha 1 as celulas A1:A140 Para a planilha 2 na Coluna B, e os próximos dados vá para a coluna ao lado.

 

Alguem poderiame ajudar com isso.

 

Obrigado

[Visitante]

 

Experimente:

 

Sub RecortaECola()
 Sheets("Plan1").[A1:A140].Cut Sheets("Plan2").Cells(1, Columns.Count).End(1)(1, 2)
End Sub