Not: Denemedim teorik
Dim sht As Worksheet
Dim LastRow As Long'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet
1 - 'Using Find Function (Provided by Bob Ulmas) 'yanılmıyorsam çok veri olduğunda ağır çalışıyor ama emin değilim tek tek tüm hücreleri kontrol ediyor
LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
2 - 'Using SpecialCells Function 'Özel hücrelere göre ==>xlCellTypeLastCell=Son hücre
LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row
3 - 'Ctrl + Shift + End 'eğer belli bir sütuna göre olacaksa diyelimk i A sütununa göre
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
4 - 'UsedRange özelliğine göre ama burada biçimlendirme yada daha önce veri eklenip silme benzeri bir şey olmuşsa boş satırları bile dolu kabul eder
sht.UsedRange 'Refresh UsedRange
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row