Postou tópico cruzado.

http://forum.clubedohardware.com.br/top ... vos-dados/

Ja tentou usar a pesquisa do forum? temos muitos posts iguais a esse.

(Na minha asinatura tem o link para a pesquisa)

Abs

Sim, tambem postei no forum clubedohardward, por não ter indicações de serem um só. Também postei em varios outros
pois acredito que desta forma a solução possa ser mais rápida.
Agradeço as respostas e vou pesquizar nos posts se encontro algo parecido.

kurtmei,

Não há problema em postar a mesma dúvida em diferentes foruns.

Mas é bom sempre avisar que postou em outros lugars, e mandar o link.

Isso porque o pessoal ajuda gratuitamente, quando tem tempo livre. Então, vc pode fazer as pessoas responderem algo que já está resolvido (sem que elas saibam disso).

Pela tua descrição, poderia ser assim:

Sub completar_GT()

Dim UL(1 To 2) As Long

UL(1) = Plan1.Cells(Rows.Count, "A").End(xlUp).Row
UL(2) = Plan2.Cells(Rows.Count, "A").End(xlUp).Row + 1

Plan1.Range("A2:C" & UL(1)).Copy Plan2.Cells(UL(2), "A")
Plan1.Range("A2:C" & UL(1)).Clear

End Sub

Obrigado amigo, funcionou como pedido.
Posso pedir uma modificação?
Como alterar para os dados serem transferidos com colar apenas VALORES.
E não apagar os dados de entrada.
grato

Tente assim:

Sub completar_GT()

Dim UL(1 To 2) As Long

UL(1) = Sheets("Plan1").Cells(Rows.Count, "A").End(xlUp).Row
UL(2) = Sheets("Plan2").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Plan1").Range("A2:C" & UL(1)).Copy
Sheets("Plan2").Cells(UL(2), "A").PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

Obrigado ,ajudou muito.