combine data from several worksheets

[Neil444]

I need help. I have converted data from a PDF file into Excel this data converts to several worksheets within the same file. I do not wish to consolidate (overlay) but to place the small worksheets in the same columns. So the end of the first worksheet would be the beginning of the next. Right now I cut and paste, looking for a faster way.

[windknife]

Using following VBA code

Sub marco1()
   Dim index As Integer, start As Integer
   Dim rCount As Integer
   
   For index = 2 To ThisWorkbook.Sheets.Count
        start = Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        With ThisWorkbook.Sheets(index)
            rCount = .Cells.SpecialCells(xlCellTypeLastCell).Row
           .Range(.Cells(1, 1), .Cells(rCount, .Columns.Count)).EntireRow.Copy _
            Destination:=ThisWorkbook.Sheets(1).Range("A" & start)
        End With
   Next index
   
   MsgBox "Succ!"
End Sub