According to the attachment a VBA demonstration for the Button 2 :

PHP Code: 
Sub Macro2()
        
Dim R&, C&, oCol As New Collection
    With ActiveSheet
.AutoFilter.Sort
       
.SortFields.Clear
        On Error Resume Next
    
For 2 To .Rng.Rows.Count
        C 
= .Rng(R1).Interior.Color
        Err
.Clear
        oCol
.Add CStr(C)
        If 
Not Err.Number Then .SortFields.Add(.Rng(1), 11, , 0).SortOnValue.Color C
    Next
        On Error 
GoTo 0
        Set oCol 
Nothing
       
.Header 1
       
.Apply
       
.SortFields.Clear
    End With
End Sub 
► Do you like it ? ► So thanks to click on bottom left star icon ? Add Reputation ? !