exact placement of copied rows

I need to modify a macro that normally places a copied range at the bottom of the spreadsheet with each new copy becoming the bottom row.

The area on the worksheet I am using has the data to be copied and pasted in the center of the page. So if I am coping row 7 I need to place the first paste on row 8, then 9, then row 10 and so forth. If there is any content on the page below where I am pasting then that material needs to shift down so that it is not overwritten.

This is the current code.

Sub Copydowndailyreport()
    With Sheets("Daily EIP Report")
        .Range("A7:Q7").Copy .Range("A8:A30" & Rows.Count).End(xlUp).Offset(1)
    End With
End Sub