Como copiar duas células de uma planilha para outra em uma celula

[avatarmago]

Bom dia / Boa trade / Boa noite!

 

Estou querendo fazer com que a macro na hora que click no botão ele copei informações de duas células de um planilha e cole em outro planilha em uma unica célula.

 

o código que tenho de copiar de uma célula da plan1 para a plant2 para outra célula e este.

 

Sub copiar()
Sheets("Plan1").Range("A1:A3").Copy Destination:=Sheets("Plan2").Range("A1")
End Sub

 

Só que quando coloco para copia duas celular da plan1 na hora de colocar na plan2 ele também seleciona na duas celular quero evitar isso quero uma forma que independente da quantidade de célula selecionada para copia quando for colar fique em uma unica célula e o código tem que por em uma célula vazia ex:

 

primeira copia seleciona a célula a1 esta vazia cola a informação nela

segunda copia seleciona a célula a1 ele esta preenchida então ela pula para seguinte a2 esta vazia então cola as informações .

etc.etc. 

 

[CasaDoHardware]

Tente algo assim

 

Sub copiar

 

Sheets ("Plan2").value = sheets("plan1").range("A1").value & " "& sheets("plan1").range("A2").value

 

end sub