Copia Cola Valores Selecionados depois do Filtro

[Mathmatic]

Saudações,

segue em anexo uma planilha modelo para aplicar o código VBA desejado.

Descrição:

Tenho uma planilha que primeiramente executo filtros na Plan1.

Depois de executar o Filtro na coluna A, coloco "x" manualmente na coluna B para escolher os valores desejados, e então só os escolhidos aparecerão na coluna C através da fórmula condicional SE que ali coloquei.

código VBA desejado:

Preciso de um código VBA que Copie todos os valores escolhidos que estão na coluna C (das células Visíveis) e Cole os (valores) na coluna A da Plan2 em ordem (um debaixo do outro), conforme fiz manualmente no exemplo que está em anexo.


Agradeço a vossa ajuda desde já,

[Mathmatic]

Pessoal,
fiz uma parte do código (copiar a range visível col "C" plan1) funcionar, Mas.. não estou conseguindo fazer a outra parte, a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência (conforme está feito manualmente na planilha em anexo).

segue abaixo o código que fiz até o momento. Preciso agora fazer a parte de Colar os valores na Plan2 (col A) em ordem um debaixo do outro em sequência.

==============================================================================
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
=========================================================================

agradeço pela ajuda desde já.