طلب مساعدة في كود vba ترتيب العمود حسب الالوان

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