Range.End (Excel)

Returns a Range object that represents the cell at the end of the region that contains the source range. Equivalent to pressing END+UP ARROW, END+DOWN ARROW, END+LEFT ARROW, or END+RIGHT ARROW.

End (Direction)

Direction: The direction in which to move.

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