Code erweitern

Sub dptAusl()
Dim rngSuch As Range, wksSrc As Worksheet, wksDst As Worksheet
Dim strSuch As String, rngFound As Range
Dim strFirst As String, FoundAdr As String
Dim ZeSrc As Integer, ZeDst As Integer, lRow As Long, lRowDst As Long
Set wksSrc = Worksheets("DPL_ISP100")
Set wksDst = Worksheets("Tabelle2")
lRow = wksSrc.Cells(Rows.Count, 2).End(xlUp).Row
Set rngSuch = wksSrc.Range("A2:B" & lRow)
With wksDst
lRowDst = WorksheetFunction.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row)
If .Range("A2") = "" Then
.Cells(2, 1) = "ISP"
.Cells(2, 2) = "AKS"
End If
End With
strSuch = "ISP101"
With rngSuch
Set rngFound = .Find(what:=strSuch)
If Not rngFound Is Nothing Then
strFirst = rngFound.Address
Do
FoundAdr = rngFound.Address
ZeSrc = rngFound.Row
ZeDst = wksDst.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksSrc.Range("B" & ZeSrc).Copy wksDst.Cells(ZeDst, 1)
wksSrc.Range("BP" & ZeSrc).Copy wksDst.Cells(ZeDst, 2)
' an dieser Stelle (und in der vorherigen Zeile) soll der Code angefügt werden aber ich finde nicht die richtige schreibweise. Code:
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
Set rngFound = .FindNext(rngFound)
Loop While Not rngFound Is Nothing And rngFound.Address  strFirst
Else
End If
End With
End Sub