EXCEL用宏把Sheet1中数据复制到Sheet2中

Sheet1和Sheet2
我要把Sheet1里的某一整行内容粘贴到Sheet2中
因为Sheet1中的数据量很大，所以需要用宏

Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
r = ActiveCell.Row
Sheets("Sheet1").Rows([r]).Copy Destination:=Sheets("Sheet2").Rows([5])

End Sub
这段代码是网上找的，当复制到Sheet2中时总是覆盖在第5行，怎样能从第一行一个一个的往下排着粘贴呢？
求解，谢谢各位！
这个是因为什么呀？？弄得我都保存不了，不能运行了。。

方法一：全选工作表，复制粘贴到sheet2
方法二：复制整个工作表，然后重命名为sheet2
方法三：按住CTRL键，隔行或逐行选择你想复制的行，复制粘贴到sheet2
方法四：在sheet1的A列插入一空列，然后在你需要复制的行内全部输入1，然后筛选此列数据为1的行，复制粘贴到sheet2

如果这四种方法都不能帮助你，可能你描述的不是很准备.
祝你快乐

Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
ActiveCell.EntireRow.Copy Sheets("sheet2").UsedRange.Offset(1, 0)
End Sub

将当前行复制到sheet2的数据最后一行的下方

用万能的vba可以完成。

第一步编制宏代码。代码如下：

Sub test()

    Sheets("Sheet1").Select

    Cells.Select

    Selection.Copy

    Sheets("Sheet2").Select

    ActiveSheet.Paste

End Sub

第二步：点击开发工具-宏-选择上述TEST宏，按执行按钮。如图：