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

Please Login or Register  to view this content.

As a beginner starter a demonstration working even if sheet Combined already exists & whatever its index position,
without leaving a blank column for any empty sheet neither using the End function :

PHP Code: 

Sub Demo1()
  Const N = "Combined"
    Dim C%, Ws As Worksheet
        C = 1
    If Evaluate("ISREF(" & N & "!A1)") Then
        Sheets(N).UsedRange.Clear
        Application.Goto Range(N & "!A1"), True
    Else
        Sheets.Add(Sheets(1)).Name = N
    End If
        Application.ScreenUpdating = False
    For Each Ws In Worksheets
        If Ws.Name <> N Then
            With Ws.UsedRange
                If Not (IsEmpty(.Cells(1)) And .Count = 1) Then
                   .Copy Cells(C)
                    C = C + .Columns.Count
                End If
            End With
        End If
    Next
        Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !