LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
bu olabilir ama yinede son satıra gitmiyor.
Kod:
Private Sub CommandButton1_Click()
Dim sht As Worksheet
Dim LastRow As Long 'Son Satır
Worksheets("sheets2").Activate
Set sht = ActiveSheet
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
FindingLastRow = LastRow
End Sub