App.WorkBooks[1].WorkSheets[1].Range['B6', 'C85'].Sort(App.WorkBooks[1].WorkSheets[1].Range['C6'],
xlDescending, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
xlGuess, 1, False, xlTopToBottom, EmptyParam, xlSortNormal, EmptyParam,
EmptyParam);