Macro to Copy Range and Paste in the Empty Row Same Sheet

Try

With Worksheets("Sheet1")
    .Range("A8:J15").Copy
    .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).pastespecial(xlpastevalues)
End With