无法从一个工作簿复制到另一个工作簿

我已经看了这个问题的几个问题，但我还没有find一个解决scheme。 这是我的代码：

i = APPS_AuditWB.Sheets(3).UsedRange.Rows.Count DeptReceivedWB.Sheets(1).Copy With APPS_AuditWB.Sheets(3) 'Deletes Recd date over a year old .Cells(i + 1, 1).Paste 

最后一行是发生错误的地方。 我已经尝试了PasteSpecial，但只贴上了我的公式（APPS_AuditWB.Sheets（3）.UsedRange.Rows.Count）。

怎么了？

Answer 1

尝试这个：

 i = APPS_AuditWB.Sheets(3).UsedRange.Rows.Count DeptReceivedWB.Sheets(1).Cells(1, 1).CurrentRegion.Copy APPS_AuditWB.Activate APPS_AuditWB.Sheets(3).Select ActiveSheet.Cells(i + 1, 1).Select ActiveSheet.Paste