mettere assieme i numeri colorati

Option Explicit

Sub Estrapola_Celle_Colorate()

    Dim rng As Range
    Dim cella As Range
    Dim x As Long

    Application.ScreenUpdating = False
    Set rng = Range("A1:E5")                      'definisci l'area da controllare
    x = 1
    Range("G:G").Clear                            'svuota colonna G
    For Each cella In rng                         'cicla tutte le celle
        If cella.DisplayFormat.Interior.ColorIndex = 38 Then 'verifica il colore della cella, se corrisponde
            Range("G" & x) = cella.Value          'copiane il contenuto in colonna G
            x = x + 1
        End If
    Next cella
    ActiveSheet.Range("G1:G" & x).RemoveDuplicates Columns:=1, Header:=xlNo 'rimuovi eventuali duplicati
    Application.ScreenUpdating = True

End Sub

Private Sub colore()
    'solo per rilevare il colore usato

    Debug.Print Range("A2").DisplayFormat.Interior.ColorIndex
    
End Sub