Макрос Excel для автоматической сортировки при открытие документа - VBA

Формулировка задачи:

Доброго времени суток. У меня есть документ в Excel с очень большой таблицей. В модуле общей книги существует след код

Private Sub Workbook_Open()
 
    ActiveSheet.Unprotect "rootvolkuz"
    ActiveSheet.EnableOutlining = True
    ActiveSheet.Protect Password:="rootvolkuz", Contents:=True, Scenarios:=True, UserinterfaceOnly:=True
    ActiveSheet.EnableAutoFilter = True
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    
   Coord_Selection = True
End Sub

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

Sub Auto_open()
    Columns("A:DT").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Заранее спасибо.

Решение задачи: «Макрос Excel для автоматической сортировки при открытие документа»

textual
                            Листинг программы 
                        

                            Sub Auto_Open()
    Range("A6:EJ499").Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub
                        