Baris Akhir dan Kolom Akhir

Sub test()
Dim jumlahbaris As Long
Dim jumlahkolom As Long

jumlahbaris = Cells(Rows.Count, 2).End(xlUp).Row
jumlahkolom = Cells(2, Columns.Count).End(xlToLeft).Column

MsgBox "jumlah baris adalah : " & jumlahbaris & vbCrLf & "Jumlah kolom : " & jumlahkolom, vbokonlny + vbInformation, _
"Info"


End Sub