Сортировка с помощью макроса

У меня есть электронная таблица с 8 столбцами данных. (Строка 1 содержит заголовки).

Я пытаюсь записать макрос, который потом не нужно редактировать.

Я нажимаю запись макроса, я выделяю мои данные, я иду на вкладку Данные и выберите сортировать. Затем я продолжаю сортировать данные в порядке убывания по значению столбца D. Я нажимаю остановить запись макроса.

когда я играю этот макрос на том же листе, он работает хорошо. При воспроизведении этого макроса на другом листе в том же файле, который идентичен orniginal, ничего не происходит.

Как я могу записать макрос, чтобы сделать то, что я хотел бы без редактирования макросов в VBA?

Спасибо за помощь.

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D2:D1316" _
        ), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:H1316")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub