Aşağıda ki kodu ben oldukça sık kullanırım.
Sub sonsatir()
Dim ws As Worksheet
Dim son As Integer
Set ws = Worksheets("Sayfa1")
son = ws.Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Bu şekilde 1. kolonun en son satır numarasını elde etmiş oluruz.