VBA Code for Sorting data in Excel.

Please find the below code for Sorting.

Sub NormalSorting()

Dim rng As Range

Set rng = Sheet1.Range("A1").CurrentRegion

rng.Sort key1:=Sheet1.Range("A1"), order1:=xlAscending, Header:=xlYes

End Sub

Sub AdvanceSorting()

Dim rng As Range

Set rng = Sheet2.Range("A1").CurrentRegion

rng.Sort key1:=Sheet2.Range("A1"), order1:=xlAscending, key2:=Sheet2.Range("F1"), order2:=xlDescending, Header:=xlYes

End Sub

Sub CustomSorting()

Dim rng As Range
Dim rng1 As Range
Set rng = Sheet3.Range("A7").CurrentRegion
Set rng1 = Sheet3.Range("E2:E" & Sheet3.Cells(Rows.Count, "E").End(xlUp).Row)

Application.AddCustomList rng1

rng.Sort key1:=Sheet3.Range("A7"), order1:=1, ordercustom:=Application.CustomListCount + 1, key2:=Sheet3.Range("C7"), order2:=[A3]

Application.DeleteCustomList Application.CustomListCount


End Sub