Hallo,

so die Richtung:

Dim vntReturn As Variant
vntReturn = Application.VLookup(wb1.Sheets(1).Cells(x, 1).Value, Lookuprange, 1, 0)

 If IsError(vntReturn) Then
    wb1.Sheets(1).Rows(x).EntireRow.Delete
 Else
      wb2.Sheets(1).Range(Cells(gefundene Zeile, 1), Cells(gefundene Zeile, 11).Copy _
            Destination:=wb1.Sheets(1).Range(Cells(x, 1), Cells(x, 11))
 End If

Gruß,