Copy multiple worksheets data & paste into blank columns in summary worksheet

Hi

I have a workbook with several worksheets in excel 2010. I need to copy D2:D33 from each worksheet (with the exception of the Summary data) into the Summary worksheet. Column A in the summary tab are the data descriptions and row 1 is prefilled.

For example: Sheet 1 data in D2:D33 needs to paste into Summary column B2:B33, D2:D33 data in sheet 2 needs to paste into Summary column C2:C33, and so on.

This is what I've come up with so far, but it paste the data vertically in stand of horizontally. I think I may need a worksheet copy and paste loop, not sure :-/. I have been struggling trying to figure this out, please help!!!!

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

' Summarize Macro
    Dim ws As Worksheet
     
    Application.ScreenUpdating = False
    Sheets("Summary").Activate
     
    For Each ws In Worksheets
        If ws.Name <> "Summary" Then
            ws.Range("D2:D33").Copy
            Worksheets("Summary").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValues)
        End If
    Next ws
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Thanks for your help!!!!!!!