范围，Excel VBA中的空行

Question

I've found a snippet for selecting the next empty row in excel, but when I run the macro it tells me that it throws a runtime error 1004. Any idea why?

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

And yes, the worksheet names are correct. Range("A1").End(xlDown).Offset(1, 0).Select throws the error

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