Range("A1:C13").Sort Key1:=Range("A1"), Order1:=xlAscending, _ Key2:=Range("B1"), Order1:=xlAscending, _ Header:=xlYes