You can make use of the SpecialCells

Cells.SpecialCells(xlCellTypeLastCell)

Good luck
Manal