Сортировка как заставить код формировать сортировку по месту расположения верхней строки сортируемого массива

[Trimbl]

Здравствуйте, уважаемые форумчане!
Вот нашел на форуме прекрасный пример сортировки.

Option Explicit

Sub SortByLists()

With ActiveSheet.Sort
  With .SortFields
    .Clear
    .Add [C1], xlSortOnValues, xlAscending, GetList(2), xlSortNormal
    .Add [E1], xlSortOnValues, xlAscending, GetList(1), xlSortNormal
    .Add [D1], xlSortOnValues, xlAscending, GetList(3), xlSortNormal
  End With
  .SetRange Range("A:G")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With

End Sub

Private Function GetList(n&)

With Sheets("Списки")
  With Range(.Cells(1, n), .Cells(.Rows.Count, n).End(xlUp))
    GetList = Join(Application.Transpose(.Value), ",")
  End With
End With

End Function

Данный код прекрасно сортирует, но всегда "приводит" отсортированный массив ко второй строке листа.
А как заставить его(код) формировать сортировку по месту расположения верхней строки сортируемого массива, ну например с 13-й строки листа.

[Trimbl]

Не знаю, правильно -ли поступаю по отношению к автору кода(Казанский, спасибо, если не ошибаюсь, -Алексей), но решил отписаться. Возникший вопрос решил следующим образом:
1). Устанавливаем диапазон сортировки .SetRange Range("A13:G40")
2). Аргумент сортировки - .Header = xlYes меняем на .Header = xlNo 'первая строка диапазона не содержит заголовка, по умолчанию считается данное значение.
3). Получаем The Best сортировку диапазона по трем параметрам, по настраиваемым спискам.

Тему можно закрывать.