This worked for me:
Sub copyto()
Sheet_count = ActiveWorkbook.Sheets.Count
Sheets(1).Select
currentpg = ActiveSheet.Index

Do Until currentpg = Sheet_count


Length = ActiveSheet.UsedRange.Rows.Count
Range(Cells(1, 1), Cells(Length, 4)).Copy



Sheets("Summary").Select
Range("A:D").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove


Sheets(currentpg).Select
ActiveSheet.Next.Select
currentpg = ActiveSheet.Index
Loop
Length = ActiveSheet.UsedRange.Rows.Count
Sheets("Summary").Select
Range("A1").Select
Application.CutCopyMode = False
Range(Cells(1, 1), Cells(Length, 4)).sort Key1:=Range("A1"),
Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal



End Sub


Where it says Sheets("Summary").Select you should change the word
summary to match the name of the sheet where you have your summary data
going to.