Duplicare solo i numeri con sfondo colorato stessa posizione.

Sub verifica()
Dim r As Long, c As Long, c1 As Long

r = 6
c = 3
c1 = 17


Do
    Do
        If Cells(r, c).Interior.ColorIndex = xlNone Then GoTo 10
        
        If Cells(r, c).Value = Cells(3, 20).Value _
        And Cells(r, c1).Value = Cells(3, 20).Value _
        Or Cells(r, c).Value = Cells(3, 21).Value _
        And Cells(r, c1).Value = Cells(3, 21).Value Then
                  
            Cells(r, c1).Interior.Color = vbMagenta
            
        End If
        
        If Cells(r, c).Value = Cells(4, 20).Value _
        And Cells(r, c1).Value = Cells(4, 20).Value _
        Or Cells(r, c).Value = Cells(4, 21).Value _
        And Cells(r, c1).Value = Cells(4, 21).Value _
        Or Cells(r, c).Value = Cells(4, 22).Value _
        And Cells(r, c1).Value = Cells(4, 22).Value Then
        
            Cells(r, c1).Interior.Color = vbGreen
            
        End If
10:
        c = c + 1
        c1 = c1 + 1
    Loop While c < 15 And c1 < 29

    r = r + 1

    c = 3
    c1 = 17
Loop While r < 14

End Sub