Address

Sub test()


Dim barisakhir As Long
Dim kolomakhir As Long

barisakhir = Cells.Find(what:="*", searchdirection:=xlPrevious, searchorder:=xlByRows).Row

kolomakhir = Cells.Find(what:="*", searchdirection:=xlPrevious, searchorder:=xlByColumns).Column

Range("C3").Resize(barisakhir, kolomakhir).Select

MsgBox "Data yang terblok beralamat pada " & Selection.Address(0, 0), vbInformation, "Ok"


End Sub