无法将数据从一张纸复制到另一张纸

Question

开发一个大型宏，现在看来第二个最简单的部分就是给我带来麻烦。

我可以在一个工作簿中复制选择，但它不允许我粘贴到另一个工作簿。我得到了：

  

“对象不支持此属性或方法”错误。

这是循环遍历大量数据，因此它需要能够冲洗和重复，这应该不是问题，因为我可以将剪贴板清除为冲洗方法。

有什么想法吗？

以下代码。上面有代码，但我认为你不应该需要它来了解发生了什么。错误出现在**行上。

Do
DoEvents
    'Tests condition for counter party
    If InStr(1, Range(buyerCol & row_counter), clientName) > 0 Or InStr(1, Range(sellerCol & row_counter), clientName) > 0 Then
        EEB.Sheets("Trades Master List").Rows(row_counter).Copy

        'Activates newly created excel sheet
        Workbooks(newWorkbookName).Activate

        'Tests newly created sheet for already existing entries and increments newSheetRow by 1 until it finds the next empty space
        Do While IsEmpty(Range("A" & newSheetRow)) = False
            newSheetRow = newSheetRow + 1
        Loop

        **ActiveWorkbook.Range(newSheetRow & newSheetRow).PasteSpecial
        EEB.masterList.Activate
        row_counter = row_counter + 1
    Else
        row_counter = row_counter + 1
    End If

Loop Until Range("A" & row_counter).Value > endDateFromSheet Or IsEmpty(Range("A" & row_counter)) = True