Deteksi posisi Akhir baris

'Deteksi posisi Akhir baris:
Public Function LastRow() As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
    End With
End Function