Eliminare dalle cinquine numeri doppi

Option Explicit
Sub test()
    Dim ur     As Long
    Dim riga   As Long
    Dim col    As Long
    Dim cerca  As Variant
    Dim cella  As Long
    ur = Range("A" & Rows.Count).End(xlUp).Row    'trova ultima riga colonna A
    For riga = 1 To ur                            'ciclo dalla 1' all'ultima riga
        For col = 1 To 4                          'per ogni riga ciclo le colonne A-D
            cerca = Cells(riga, col).Value        'cosa cerco
            For cella = col + 1 To 5              'per ogni riga ciclo le colonne B-E
                If cerca = Cells(riga, cella).Value Then  'confronta valore primo ciclo a secondo ciclo
                    Cells(riga, cella).ClearContents      'trovato duplicato ... cancella
                End If
            Next cella
        Next col
    Next riga
End Sub