Когда я пишу свой код, VBA автоматически меняет прописные буквы на строчные (с: Sort to: sORT) для всех экземпляров, и это приводит к ошибке.
Sheets("Autocollect").Columns("A:M").sORT key1:=Range("D2"), order1:=xlAscending, Header:=xlYes
Что яделаешь неправильно?