Sverweis bei doppelten Werten Suchk

Sub Anpassen()
dim wshPDaten as worksheet
Set wshPDaten = ThisWorkbook.Worksheets("P-Original")
With wshPDaten
lastRowE = ThisWorkbook.Worksheets("P-Original").Cells(Rows.Count, 5).End(xlUp).Row
.Range(.Cells(2, 7), .Cells(lastRowE, 7)).FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-2],StashCatBPx,2,FALSE),"""")"
End With
With wshPDaten
.Range("G2:G" & lastRowE).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub