Vergleich von 2 Tabellen in Excel

Sub DeleteDuplicates()
    Dim dic As Object, rngDelete As Range, cell As Range
    Set dic = CreateObject("Scripting.Dictionary")  
    'Referenztabelle mit Daten Spalten aus A und C in Dictionary laden  
    With Sheets(2)
        For Each cell In .Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)  
            strVal = cell.Value & "|" & cell.Offset(0, 2).Value  
            If Not dic.Exists(strVal) Then
                dic.Add strVal, ""  
            End If
        Next
    End With
    With Sheets(1)
        'Für jede belegte Zelle in Tabelle1  
        For Each cell In .Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)  
            strVal = cell.Value & "|" & cell.Offset(0, 2).Value  
            'prüfe ob Kombination im Dictionary existiert  
            If dic.Exists(strVal) Then
                'Füge Zeile zu einem kombinierten Range zusammen  
                If Not rngDelete Is Nothing Then
                    Set rngDelete = Union(rngDelete, cell.EntireRow)
                Else
                    Set rngDelete = cell.EntireRow
                End If
            End If
        Next
    End With
    'Lösche die gespeicherten Zeilen auf einen Rutsch  
    If Not rngDelete Is Nothing Then
        rngDelete.Delete
    End If
End Sub