ник: snipe
Сортируйте изначальный запрос (перед выгрузкой)
или попробуйте вот так
with xlsheet
.Range("A1:Q109").Select
.Range("Q109").Activate
.Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end with