Как макросом задать сортировку?

Как отсортировать n столбец по убыванию, предварительно установив автофильтр на 1 строку?