Combine worksheets into one worksheet

[JAYLO]

I have a workbook that was created from a PDF file converted to Excel. There are 50+ sheets each with less than 20 rows. How can I combine each worksheet into one?
TIA
-Jay

 

[syntaxed]

Insert a new sheet and run this from there.

Sub JAYLO()
Dim mySheet As Worksheet, lastRow As Long
lastRow = 1
For Each mySheet In ActiveWorkbook.Worksheets
    If mySheet.Name <> ActiveSheet.Name Then
        mySheet.UsedRange.Copy
        ActiveSheet.Cells(lastRow, 1).Select
        ActiveSheet.Paste
        lastRow = ActiveSheet.UsedRange.Rows.Count
    End If
Next
Application.Goto ActiveSheet.Cells(1, 1)
End Sub