Range.End (Excel)

Devuelve un objeto Range que representa la celda al final de la región que contiene el rango de origen.

End (Direction)

Direction: La dirección del movimiento.

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