I found it in another forum.... Yeah!!!!!
With xlWorkSheet
.Range(xlWorkSheet.Cells(1, 1), xlWorkSheet.Cells(iRowEnd - 1, iColEnd)).Sort _
Key1:=.Range("A2"), Order1:=xlAscending, _
Key2:=.Range("B2"), Order2:=xlAscending, _
Key3:=.Range("C2"), Order3:=xlAscending, _...