Sheets("TailoredAccsSort").Select
Columns("C:J").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range("G2") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal