Seleksi Baris Akhir

Sub test() barisakhir = Cells(Rows.Count, 2).End(xlUp).Row Range(Cells(2, 2), Cells(barisakhir, 2)).Select End Sub