从工作表到另一个工作表的复制粘贴上的vba运行时错误1004

Question

我正在尝试仅将一个工作表中的值复制到另一个工作簿，但我总是收到错误。

以下是代码：

For Each turn In test.Range("A6:" & test.Range("A6").End(xlDown).Address)

    For i = LastRow To 2 Step -1
        If CDate(i1.Range("B" & i).Value) > CDate(turn.Value) Then
            'i1.Rows(i).Delete
        End If
    Next i

    turn.Offset(, 1).Copy
    Sheets("PRONO").Range("B8").Select
    Selection.PasteSpecial xlPasteValues

'            turn.Offset(, 2).Select
'            Selection.Copy
'            prono.Range("B9").Select
'            Selection.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
Next