VBA Exel 2010. Сортировка таблицы и закрашивание ячеек

[mextako]

Дан диапазон [диапазон], надо создать программу, которая сортирует все элементы по возрастанию, а затем все отсортированные элементы окрашивает инверсным цветом. Важно: элементы могут быть не только числа, но и буквы. В этом случае клетка остаётся на своём месте без изменений.
Желательно сделать программу в модуле класса, а сам модуль выглядит примерно так:

Sub Инверсирование()
Dim Объект As Класс
Set Объект = New Класс
Set Объект.область = [Диапазон]
Объект.обработка
Set Объект = Nothing
End Sub

Можно без модуля класса, я сам подгоню, мне бы просто врубится, каким образом саму программу делать!