Hy hab das was gefunden was fast funct....

wie muss ich den unteren code ändern das er mir nur die Werte in Tabelle3 kopiert die NICHT übereinstimmen

With Worksheets("Tabelle1")                     ' letzte Zeile in Spalte A Tabelle1
        LoLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 1)), _
            .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
    End With
    With Worksheets("Tabelle2")                     ' letzte Zeile in Spalte B Tabelle2
        LoLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
            .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
    End With
    For LoI = 1 To LoLetzte1                        ' 1. Schleife alle Werte Spalte A
        For LoJ = 1 To LoLetzte2                    ' 2. Schleife alle Werte Spalte B
            ' Leerzellen nicht kennzeichnen
            If Worksheets("Tabelle1").Cells(LoI, 1) <> "" Then
                If Worksheets("Tabelle2").Cells(LoJ, 2) <> Worksheets("Tabelle1").Cells(LoI, 1) Then
                    ' Zellen sind ungleich, Zeile Kopieren
                    
                    Worksheets("Tabelle1").Rows(LoI).Copy
                    With Worksheets("Tabelle3")
                        ' letzte belegte Zeile in Tabelle3 ermitteln
                        Loletzte3 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
                        ' ermittelte Zeilennummer mit max. Anzahl vergleichen
                        If Loletzte3 > Rows.Count Then
                            MsgBox "In Tabelle3 ist keine Zeile mehr frei"
                            ' Zwischenspeicher löschen
                            Application.CutCopyMode = True
                            Exit Sub
                        End If
                        ' Werte übertragen
                        .Rows(Loletzte3).PasteSpecial Paste:=xlValues
                        ' Formate übertragen
                        .Rows(Loletzte3).PasteSpecial Paste:=xlFormats
                    End With
                    ' innere Schleife verlassen da Datensatz gefunden
                    Exit For
                End If
            End If
        Next LoJ
    Next LoI
    Application.CutCopyMode = False                 ' Zwischenspeicher löschen
    Application.ScreenUpdating = True               ' Bildschirmaktualisierung ein