Тогда другой вопрос, после этого макроса не работает кнопка отменить, но работает кнтр+шифт+в которая отменяет сортировку.  
1) Можно ли сделать так чтобы не гасла кнопка отменить?  
2) Можно ли сделать так чтобы после отмены выделения он показывал конец, а не середину или начало страницы?

Видимо я не сохранил всё. Подставление ID работает. На кнопку повесил, всё здорово.    
Вот макрос по значению ячейки:  
Sub Sort()  
' Call the built-in filter option to filter on ACell  
Application.CommandBars("Cell").FindControl(ID:=12232, Recursive:=True).Execute  
End Sub  
 
Если ID:=12232 поменять на ID представленные ниже то будет сортировать по цвету.  
12233 - по цвету ячейки  
12234 - по цвету шрифта  
Надеюсь кому-нибудь поможет, столько времени искал, создал тему и нашел. :)

http://msdn.microsoft.com/en-us/library/cc952296%28v=office.11%29.aspx  
 
Вот, нашел такой макрос, но он фильтрует по цвету. Подставляю другой ID и тоже самое. q_q

Перерыл гугл, этот сайт, смотрел ютуб, испробовал кучу комбинаций, макросов и ничего не подошло. В списках хоткеев только выпадающий список со всеми контрагентами на alt+вниз, толку от этого естественно никакого.  
Мне нужно, чтобы я нажал на ячейку, нажал на макроклавишу на клавиатуре и мне отсортировало по значению столбец выделенной ячейки. Помогите пожалуйста. D: