In diesem Beispiel wird die letzte Zelle im verwendeten Bereich von Sheet1 aktiviert.
Worksheets("Sheet1").Activate ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate