Copie todas as células em uma coluna [closed]

Eu tenho uma folha que tem 200 linhas com alguns espaços em branco entre eles.

Não posso usarEnd(xlDown) ouEnd(xlUp) para obter o intervalo inteiro porque existem linhas em branco.

Como posso copiar até o último intervalo que possui dados em colunas?

Além disso, não quero copiar os cabeçalhos.

Por favor, sugira como eu posso fazer isso no Excel VBA.