Further to what ac3mark has supplied you'd be glad to know that you weren't that far away with your efforts.
To reference all worksheets, regardless of name and quantity thereof, and to exclude the "Summary" sheet from the process, the syntax needs to be something like this:-
Dim ws As Worksheet, sh As Worksheet
Set sh = Sheets("Summary")
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Summary" Then '---->Excludes the Summary sheet from the copy/paste process.
ws.Range("A30:K40").Copy sh.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) '---->This is the copy/paste line. It assumes that your range is always fixed at A30:K40 in each source sheet.
End If '---->Closes off the IF statement.
Next ws '---->The search moves on to the next sheet.
Application.CutCopyMode = False
Application.ScreenUpdating = True
Hence, all source sheets will have the fixed range copied/pasted to the Summary sheet all together.
I hope that this helps.