Estou utilizando o seguinte código para que a coluna S seja classificada do menor para o maior dependendo da informação da coluna N.
Porém, ao alterar a coluna N, a coluna S não está sendo classificada do maior para o menor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("N:N")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

Application.EnableEvents = False
ActiveSheet.AutoFilter.ApplyFilter
With ActiveWorkbook.Worksheets("Priorização").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.EnableEvents = True
End Sub