范围，Excel vba中的空行

Question

我找到了一个用于选择excel中下一个空行的片段，但是当我运行宏时它告诉我它会抛出运行时错误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