VBA Datentransfer in anderes Workbook

Sub TransferInRedlist()
Dim rngZelle As Range, wbStart As Workbook, wbZiel As Workbook
Dim QScore As Range
Set QScore = Range("K2")
Set wbStart = ThisWorkbook
Set wbZiel = Workbooks.Open("G:\DEHAJ_D9807\Daten TS\TBernert\Projekte\Projekt-SPC\Arbeitsfile\ _
Red-List\Red-List_Vorlage.xlsm")
With wbStart.Worksheets("QScore")
For Each rngZelle In .Range("B11:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
'If rngZelle > 0.25 Then
If rngZelle > QScore Then
With wbZiel.Worksheets("Red-List")
.Cells(.Cells(.Rows.Count, "C").End(xlUp).Offset(1).Row, "C").Resize(, 2).Value = _
rngZelle.Offset(, -1).Resize(, 2).Value
End With
End If
Next rngZelle
End With
Set wbStart = Nothing: Set wbZiel = Nothing
End Sub