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

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

我可以将select复制到一个工作簿中，但不允许粘贴到其他工作簿。 我正进入（状态：

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

这是循环大量的数据，所以它需要能够漂洗和重复，这应该不是一个问题，因为我可以清除剪贴板作为冲洗方法。

有任何想法吗？

下面的代码。 有上面的代码，但我不认为你应该需要任何它来了解发生了什么事情。 错误来自**行。

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