Sorting Data in Excel Sheet ?

Dim exo,wbo,wso

Set exo=createobject("Excel.application")

Set wbo=exo.Workbooks.Open("E:\number.xlsx")

Set wso=wbo.Worksheets("Sheet1")

exo.Visible=true

wait(3)

Set objRange = wso.UsedRange

Set objRange2 = exo.Range("A1")

objRange.Sort(objRange2)

wbo.Save

exo.Quit

Set wbo=nothing

Set wso=nothing

Set exo=nothing

Note: Indicated "A1" as the starting point in Excel.