How to consolidate different sheets into one

This assumes that all sheets in the workbook currently contain a series in column A beginning in cell A1.

Sub cat()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        On Error GoTo Hdl:
        If Not sh.Name Like "Series*" Then
            sh.Range("A1", sh.Cells(Rows.Count, 1).End(xlUp)).Copy _
            Sheets("Series" & Left(sh.Range("A2").Value, 1)).Cells(Rows.Count, 1).End(xlUp)(2)
        End If
Hdl:
        If Err.Number = 9 Then
            Sheets.Add After:=Sheets(Sheets.Count)
            ActiveSheet.Name = "Series" & Left(sh.Range("A2").Value, 1)
            sh.Range("A1", sh.Cells(Rows.Count, 1).End(xlUp)).Copy ActiveSheet.Cells(Rows.Count, 1).End(xlUp)(2)
            Err.Clear
            Resume Next
        ElseIf Err.Number > 0 Then
            MsgBox Err.Number & ":  " & Err.Description & " Occurred while copying sheet " & sh.Name
            Err.Clear
            Resume Next
        End If
    Next
End Sub

JLGWhiz, Its not working as desired.

Let me put it this way. If i can get all the data in different sheets in one sheet, it would be fine for me.

I have an excel file which have about 132 sheets. All the column labels are same and i want all those data into one excel sheet. I did used a macro which i got through googling. But it consolidates only 32 sheets.
This was the macro

Sub Combine()
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.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub