Copy Columns From Multiple Sheets To One Summary Sheet

Here's what I have:

A workbook with 40 sheets, each sheet has data in A:B with varying numbers of rows. A and B have headers in each sheet.

What I want to do:

Have a summary sheet in the same workbook of all the sheets in A:B

After some searching and my limited VB skills, I found a way to copy each column into the summary but to the right of the next column. I need it to be continuous in A:B

Sub Create_Summary()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Summary").Delete
Application.DisplayAlerts = True
n = Application.Worksheets.Count

[Code]...