Sort column 2 different ways.

Try:

Sub brainzlp()
Dim i As Long, r As Range, x As Long
x = Range("A" & Rows.Count).End(3).Row
Range(Cells(7, 1), Cells(x, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Range("M7"), Order1:=xlDescending, Key2:=Range("P7"), Order2:=xlAscending, Key3:=Range("X7"), Order3:=xlAscending
Set r = Columns(13).Find("SIM", LookIn:=xlValues, lookat:=xlWhole)
    If r Is Nothing Then
    GoTo zz
    Else
    Set r = Nothing
Set r = Columns(13).Find("NÃO", LookIn:=xlValues, lookat:=xlWhole)
    If Not r Is Nothing Then
    Range(Cells(7, 1), Cells(r.Row - 1, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Range("P" & r.Row - 1), Order1:=xlAscending, Key2:=Range("X" & r.Row - 1), Order1:=xlAscending
    Range(Cells(r.Row, "A"), Cells(x, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Cells(r.Row, "X"), Order1:=xlAscending
    End If
Set r = Nothing
End If
zz:

    
End Sub

Hello Mr. John,

I've tried but it doesn't sort nothing any "SIM" values.

I'll opt for this, although it's

On Error Resume Next

Dim i As Long, r As Range, x As Long
x = Range("A" & Rows.Count).End(3).Row
Range(Cells(7, 1), Cells(x, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Range("M7"), Order1:=xlDescending, Key2:=Range("P7"), Order2:=xlAscending, Key3:=Range("X7"), Order3:=xlAscending
Set r = Columns(13).Find("NÃO", LookIn:=xlValues, lookat:=xlWhole)
    If Not r Is Nothing Then
    Range(Cells(7, 1), Cells(r.Row - 1, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Range("P" & r.Row - 1), Order1:=xlAscending, Key2:=Range("X" & r.Row - 1), Order1:=xlAscending
    Range(Cells(r.Row, "A"), Cells(x, ActiveSheet.UsedRange.Columns.Count)).Sort Key1:=Cells(r.Row, "X"), Order1:=xlAscending
    End If
Set r = Nothing
On Error GoTo 0