Wert vergleichen in 2 Tabellen und wenn nicht vorhanden ganze Zeile einfügen

Sub AddNewEntriesFromSheetTwoToSheetOne()
    Dim dic As Object, cell As Range
    Set dic = CreateObject("Scripting.Dictionary")  
    'Referenztabelle mit Daten aus Spalte A in Dictionary laden  
    With Sheets(1)
        For Each cell In .Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)  
            strVal = cell.Value
            If Not dic.Exists(strVal) Then
                dic.Add strVal, ""  
            End If
        Next
    End With
    With Sheets(2)
        'Für jede belegte Zelle in Tabelle2  
        For Each cell In .Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)ß l.  
            If not dic.Exists(cell.Value) Then
                cell.EntireRow.Copy Sheets(1).Cells(Rows.Count,"A").End(xlUp).Offset(1,0)  
            End If
        Next
    End With
End Sub