Ngeblok sejumlah Baris dan Kolom Akhir

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

End Sub