Range.End (Excel)

Retorna um objeto Range que representa a célula no final da região que contém o intervalo de origem. Equivalente ao pressionar FINAL + SETA PARA CIMA, FINAL + SETA PARA BAIXO, FINAL + SETA PARA ESQUERDA OU FINAL + SETA PARA A DIREITA. Objeto Range somente leitura.

End (Direction)

Direction: Direção na qual deseja mover.

Dim rngEnd As Range
Set rngEnd = ActiveCell.End(Direction:=xlDown)