Serba Awal

Sub test()

'mencari baris paling awal dari semuanya,hasilnya angka

barisawal = Cells.Find(What:="*", searchdirection:=xlNext, _
searchorder:=xlByRows).Row

kolomawal = Cells.Find(What:="*", searchdirection:=xlNext, _
searchorder:=xlByColumns).Column

MsgBox "Baris awal " & barisawal & vbCrLf & "kolom awal " & kolomawal
End Sub