Remove the ", DataOption1:=xlSortNormal" from the fine part of your macro
See whether it works

So, the code becomes

Range(Cells(1, ccol), Cells(I - 1, ccol + 1)).Selec
Selection.Sort Key1:=Range(Cells(2, ccol).Address), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:=False, Orientation:=xlTopToBotto

Regards
Edwin Ta

http://www.vonixx.com