Udsøgning og kopi af visse poster

Jeg har et regnark med fem kolonner (A:E), hvor jeg i kolonne E har postnumre. I et andet regneark har jeg en liste over godkendte postnumre.

Jeg har behov for at udsøge de ikke godkendte postnumre. Jeg har prøvet med følgende VBA kode:

Sub KOPI_POST_UKENDT()

'Find postnummer der ikke er i tabel.
Dim a As Variant
    For Each c In Workbooks("PERSONAL.XLSB").Worksheets(7).Range("a:a").Cells
        If c.Value = "" Then Exit Sub
            a = c.Value
            Range("e2:e2").Select
            For Each x In Sheets(1).Range(Selection, Selection.End(xlDown)).Cells
                If x.Value = a Then
                x.EntireRow.Select
                Selection.Copy
                Sheets("Ark3").Activate
                Selection.Insert
                Shift = xlDown
                Sheets("Ark1").Activate
                End If
            Next x
        Next c
End Sub

Denne kodning udsøger og kopiere de godkendte postnumre, men jeg har behov for det modsatte. Jeg troede at man så kunne ændre kodningen i "If x.Value = a Then til "If x.Value <> a Then" men dette duer ikke.

Jeg testkørte med 5 linjer (2 poster skulle findes) og resultater blev 52 kopi linjer hvor der kun skulle have været to .

Er der en der kan hjælpe med løsningen på denne problemstilling.

Efterfølgende skal jeg slette postnummeret i det oprindelige ark, men ikke linjens øvrige oplysninger. Her har jeg ikke fundet en løsning, men er den lige til højrebenet vil jeg da sætte pris på dette også. :-)