VBA Colar em Sequência

[Mathmatic]

Saudações,

Gostaria de Copiar as células visíveis da coluna C (Plan1) e Colá-las em sequência na coluna A (Plan2), conforme já fiz manualmente no anexo.

está copiando a Range visível inteira da coluna C (que é da forma que eu gostaria que copiasse).
Mas não consigo fazer Colar em sequencia na coluna A (Plan2) conforme fiz manualmente no anexo.
abaixo segue um código vba que construi que copia a coluna C, mas não cola em sequência na coluna A (Plan2).

Sub CopiaVisivel_ColaSequencialDebaixo()

Sheets("Plan1").Select
Range("C1").Select

Range(Range("C2"), Range("C2").End(xlDown)).Select

Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

'está colando os valores na mesma posição original que foram copiados, Mas...
'preciso fazer Colar em ordem Sequencial um debaixo do outro na col A Plan2.

Sheets("Plan2").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Application.CutCopyMode = False
Range("A1").Select

Sheets("Plan1").Select
Range("A1").Select

End Sub

[Tov Elen Shau]

Colega, existe várias maneiras de fazer isso, veja se está te resolve.

Atenciosamente

Tov Elen Shau

[Mathmatic]

tópico RESOLVIDO !

sr. Tov Elen Shau,

a sua solução apresentada já me ajudou.

muito obrigado.

até mais ...

abs.