Macro-Copy and paste the new data to the next empty row on summary sheet

Blanks, didn't think about that. Here's a tweak:

        If LR > 8 Then ws.Range("A9:O" & LR).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)