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

From a "process" point of view, I'd think pressing buttons on each sheet to transfer data to the Summary would quickly lead to duplications and errors. I would think it would be better to have the SUMMARY sheet collect it's own data for you fresh each time you look at the Summary sheet. This way you can make edits and updates to the existing data already on each of the individual sheets, and the next time you look at the SUMMARY those updates will be there as well.

We would create a Worksheet_Activate macro in the SUMMARY sheet module that triggers itself each time you view the sheet. It would clear it's current data, then run through all the sheets and copy the data in anew, skipping the sheets "Sheet1" and "Summary" as it copies.

Would that work for you? No buttons!

This is the event macro in the Summary sheet module:

Option Explicit

Private Sub Worksheet_Activate()
Dim ws As Worksheet, LR As Long

Application.ScreenUpdating = False

Me.UsedRange.Offset(8).Clear

For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Sheet1" And ws.Name <> "Summary" Then
        LR = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.Range("A9:O" & LR).Copy Range("A" & Rows.Count).End(xlUp).Offset(1)
    End If
Next ws

Application.ScreenUpdating = True
Beep
End Sub

I also cleaned up a lot of stray garbage down below on each of your sub sheets. Make sure there isn't any of the in your real workbook or it may mess up the macro's attempt to see the last row of data on each sheet and copy down to that point only.

I've marked this thread as SOLVED for you.
Next time, select Thread Tools from the links above to mark a thread as SOLVED. Thanks.

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)