salve
se hai un po di dimestichezza con le macro, e se hai una colonna vuota a fianco della tua tabella, prova questa macro:
La macro prevede i valori in colonna A con la colonna B vuota Valori da A1:A12
Sub ordina_colori()
i = 1
n = 100
For Each cl In Range("a1:a12")
If cl.Interior.ColorIndex = 6 Then
cl.Offset(0, 1).Value = i
i = i + 1
Else
cl.Offset(0, 1).Value = n
n = n + 1
End If
Next
Range("A1:B12").Sort Key1:=Range("B1"), Order1:=xlAscending
Columns("B:B").ClearContents
End Sub
saluti
Andrea