Perhaps the following code will do it for you:-
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Summary" Then
Range("A1").Copy Sheets("Summary").Range("A" & Rows.Count).End(3)(2)
Application.ScreenUpdating = True
Following is a link to my test work book for you to peruse. Just run the code by pressing Alt + F8 and click on "run" in the window that opens.
I hope that this helps.