VBA code that copies different sheets and paste in one sheet, column by column

I am trying to make a code that brings data in multiple sheets and align in one sheet column by column

This code I have, brings the data and stack it vertically one sheet on top of another sheet

but I want it to stack horizontally like sheet1 data will be in column A, B, C and and sheet2 data will be in column D, E, F.

data is already aligned by column i just want the program to stack column by column instead of row by row

I thought changing last line: Range("A65536").End (xlUp)(2) ---> Range("XFD").End (xlleft)(2)

but it does not work, here is my code below

Sub combinesheets()

Dim J As Integer


On Error Resume Next


Sheets(1).Select


Worksheets.Add


Sheets(1).Name = "Combined"


Sheets(2).Activate


Range("A1").EntireRow.Select


Selection.Copy Destination:=Sheets(1).Range("A1")


For J = 2 To Sheets.Count


Sheets(J).Activate


Range("A1").Select


Selection.CurrentRegion.Select


Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)


Next


End Sub