' Sorting a Single Column (A) and Row 1 is Header:

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select' Returning home

' Sorting 2 columns (A, B) and Row 1 is Header:

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2"), _
    Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom
Range("A1").Select' Returning home

' Sorting 3 columns (A, B, C) and Row 1 is Header:

Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2"), _
    Order2:=xlAscending, Key3:=Range("C2"), Order3:=xlAscending, Header:= _
    xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select' Returning home