BU aşağıdaki kısım sabit diğer numaralandırılmışlardan her hangi biri kullanılabilir
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