Reformular VBA para copiar somente Col "C"

[Mathmatic]

Saudações, em anexo segue a planilha modelo.

o cód. VBA atual da planilha está copiando a linha inteira e colando na Plan2 (em sequencia) seguindo o critério: If .Range("C" & i).Value <> ""

gostaria que continuasse seguindo o critério, mas que copiasse somente os dados da coluna "C" e os colasse em ordem sequencial (como já está fazendo corretamente) na col "A" da Plan2.

resumindo: copiar os dados visíveis (<> " ") da col C (Plan1) conforme o critério, e colá-los na col A (Plan2) em sequencia. (Não a linha inteira como está fazendo atualmente).

Obs: gostaria de aproveitar o cód. VBA atual, pois achei-o bastante eficiente.