Selection.SpecialCells(xlCellTypeLastCell).Row
Ayrıca ilerde sorun yaşamamanız için yukardaki yerine alttaki kodu kullanın.
Cells.Find("*", , , , xlByRows, xlPrevious).Row
Selection.SpecialCells(xlCellTypeLastCell).Row
Cells.Find("*", , , , xlByRows, xlPrevious).Row