Не работает метод SORT

[leonard]

Здравствуйте, господа!
Столкнулся с интересной ситуацией. Не отрабатывает метод Sort/

У меня таблица из 4 столбцов. В первом - значение, во втором - текст, третий пустой и в 4 текст.
Сортировка от большего к меньшему.
Код такой:

'end_block - это номер конечной строки
'st_block - это номер первой/стартовой строки
'el_count - это количество строк в блоке, который нужно отсортировать
'sort_col - столбец, по которому сортирую

st_block = end_block - el_count + 1
sort_col = "D" & st_block
Range(Cells(end_block - el_count + 1, sum_col), Cells(end_block, code_col)).Select

With ActiveWorkbook.Worksheets("R").Sort
ActiveWorkbook.Worksheets("R").Sort .SortFields.Clear
Selection.Sort.SortFields.Add Key1:=Range(sort_col) _
, SortOn:=xlSortOnValues, Order1:=xlDescending, DataOption1:=xlSortNormal
.SetRange Range(Cells(end_block - el_count + 1, sum_col), Cells(end_block, code_col))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With



После отработки макроса все значения остаются на месте.. Что я не так делаю?
Спасибо!