Create a sheet and name it "Summary". Place all the headings in row 1. Place this macro in a standard module and run it from there.
Application.ScreenUpdating = False
Dim ws As Worksheet, desWS As Worksheet
Set desWS = Sheets("Summary")
For Each ws In Sheets
If ws.Name <> "Summary" Then
ws.UsedRange.Offset(1, 0).Copy desWS.Cells(desWS.Rows.Count, "A").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = True
Hold down the ALT key and press the F11 key. This will open the Visual Basic Editor. In the menu at the top click 'Insert' and then click 'Module'. This will be your standard module. Copy and paste the macro into the empty code window that opens up. Press the F5 key to run the macro. Close the code module window to return to your sheet. There are other quicker ways to run the macro such as assigning it to a button that you would click on your sheet or assigning it to a short cut key. The error you received seems to indicate that the last line of the macro (End Sub) is missing. Please make sure that line is not missing.
I think that it would be easier to help and test possible solutions if I could work with your actual file. Perhaps you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.