VBA- aus anderer Mappe kopieren)mit Kriterium)

Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer
Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open("C:\Users\Besitzer\Desktop\Master\Download\Mappe2.xls")
Set wks1 = Sheets("data")
Set wks2 = wbZiel.Sheets("Import1")
myRow = 2   'Startzeile in Import1
lastCol = 10 'Letzte Spalte mit Daten
lastRow = IIf(wks1.Range("A65536")  "", 65536, _
wks1.Range("A65536").End(xlUp).row)
For lRow = 1 To lastRow
If wks1.Cells(lRow, 2) = "BB" Then
'Daten kopieren
Range(wks1.Cells(lRow, 2), wks1.Cells(lRow, lastCol)). _
Copy wks2.Cells(myRow, 2)
End If
Next
Application.CutCopyMode = False
wbQuelle.Close