复印及；粘贴在VBA excel上

我找不到任何已经发布的代码来实际复制整行（如表单）

然后粘贴到数据库第一个空行的底部

有人能帮忙吗？谢谢

表A6:AY未通过移动设备测试：

Sub CopyPaster()

With ActiveSheet
     .Range("A6").EntireRow.Copy
     .Cells(Application.WorksheetFunction.CountA(.Range("A:A")+3,1).PasteSpecial xlPasteValues 'Plus 3 to account for the two blank cells in column A
End With

End sub 

---

谢谢，当我创建一个新的按钮时，我是复制这个代码还是需要包含其他内容？如果您需要的话，应该就是这样。试试看，如果你得到了想要的结果，请告诉我。上面写着无效的外部程序。你把它放在子例程中了吗？是的，当我第二次尝试单击时，仍然粘贴在同一行上。。。