sort comparing 2 columns based on colour index

Maybe:

Sub Rem0ramzz()
Dim i As Long
Dim x As Long
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Columns("M:N").Insert
Rows(2).Insert
x = Range("L" & Rows.count).End(3).Row
For i = 2 To x
    If Cells(i, "H").Interior.ColorIndex <> xlNone Then
        Cells(i, "M") = Cells(i, "H")
        Select Case Cells(i, "H").Interior.ColorIndex
            Case Is = 3
                Cells(i, "N") = 3
            Case Is = 45
                Cells(i, "N") = 2
            Case Is = 6
                Cells(i, "N") = 1
        End Select
    Else
        Cells(i, "M") = Cells(i, "L")
        Select Case Cells(i, "L").Interior.ColorIndex
            Case Is = 3
                Cells(i, "N") = 3
            Case Is = 45
                Cells(i, "N") = 2
            Case Is = 6
                Cells(i, "N") = 1
        End Select
    End If

Next i
Range("A2:N" & x).Select
Selection.Sort Key1:=Range("N2"), Order1:=xlDescending, Key2:=Range("M2") _
       , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
Columns("M:N").Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub