Sub Test()
Dim rng As Range, m As Long
With Worksheets("Sheet1").Sort
m = .Parent.Cells(Rows.Count, "B").End(xlUp).Row
Set rng = .Parent.Range("B7:B" & m)
.SortFields.Clear
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 176, 240)
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 0)
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(252, 213, 180)
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 192, 0)
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(183, 222, 232)
.SortFields.Add(rng, xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 255, 255)
.SetRange Range("A7:G" & m)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub