范围，Excel VBA中的空行

我已经find了一个在Excel中select下一个空行的代码片段，但是当我运行这个macros时，它告诉我它会抛出一个运行时错误1004.任何想法为什么？

Sub CopyValues() Sheets("Report").Select Range("B4:D10").Select Selection.Copy Sheets("Data").Select Range("A1").End(xlDown).Offset(1, 0).Select ActiveSheet.Paste End Sub 

是的，工作表名称是正确的。 Range("A1").End(xlDown).Offset(1, 0).Select引发错误

Answer 1

 Sub CopyValues() Sheets("Report").Range("B4:D10").Copy _ Destination:=Sheets("Data").Range("A" & Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1) End Sub