My Add-Ins For Excel 2010

 Sort Data in Excel via VBA Code

Sub teste()

Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, _

                        Key2:=Range("B1"), Order2:=xlAscending, _

                        Key3:=Range("C1"), Order3:=xlAscending, _

                        Header:=xlYes

End Sub