Excel Excel Macro Seleção de Intervalo

[Guilherme R Dias]

Olá Pessoal, boa tarde!!

Estou iniciando no universo das Macros de Excel, peço uma ajuda para resolver a seguinte questão, preciso selecionar um intervalo de células para poder imprimir, mas é um intervalo dinâmico, e não estou conseguindo finalizar:

 

Range("J10").Activate (optei por começar a macro nesta célula, pois a coluna J é a ultima coluna com dados, e as linhas anteriores possuem linhas vazias).

Selection.End(xlDown).Select (ir para ultima linha com dados)

Range(Selection, Cells(1)).Select (selecionar da ultima linha ate a célula A1 = intervalo que eu preciso imprimir)

ActiveSheet.PageSetup.PrintArea= ??? (neste ponto esta minha dificuldade, não consigo finalizar a macro, colocando o intervalo selecionado como area de impressão!!)

 

Peço ajuda para resolver esta questão.

 

Grato,

Guilherme