Excel" Finding the Number of Used Rows

Dim oexl
Set oexl=CreateObject("Excel.Application")
Set owb= oexl.Workbooks.Open("D:\uftCTexit\NandaHybrid\testarea\Range Object.xlsx")
Set  objWS=owb.Worksheets("Sheet1")

 Set objRange = objWS.Range("A1").CurrentRegion
 Msgbox objRange.Rows.Count

=>4

Msgbox objWS.Usedrange.Rows.count
=>4


 'msgbox objWS.Cells(3000, 1).End(xlUp).row
'Rem -4162 is enumeration for  xlup
  msgbox objWS.Cells(3000, 1).End(-4162).row
 
  =>6


 owb.Close

 set owb=nothing
 oexl.Quit


'Add Extra spaces in workbooks after last row

Msgbox objRange.Rows.Count
=>4

Msgbox objWS.Usedrange.Rows.count
=>6