将工作表中的范围复制并粘贴到另一个

Question

我一直在查看几个相关的问题，似乎无法为我的工作簿找到一个可行的解决方案。我正在尝试制作一个＆＃34;添加新的部分＆＃34;宏/按钮，它将复制一系列数据并将其粘贴到活动工作表的最后一行。

我目前的代码如下：

Sub EnterClientSection()
'
' EnterClient Section Macro
'
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet

Set copySheet = Worksheets("Zdata")
Set pasteSheet = ActiveSheet

copySheet.Range("A70:G81").Copy

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

＆＃39;

当我运行宏时，它只是选择当前工作表上的最后一行，但似乎没有复制或粘贴任何内容。

＆＃34; ZDATA＆＃34;是我想要复制的单元格范围。

感谢您的任何一方：）