Consolidating several sheets data

[murp5972]

Hi, i've got a code that consolidates all of the data within several sheets in a workbook, and creates a new sheet titled "Combined" with all the compiled data. It also trims the data (removes a couple unnecessary columns and rows) and does a few other tweaks to make it look more presentable. However, as I must update this data every month, I've noticed an error with my new data not being properly combined. The error i'm seeing is this: All of sheet 1 is properly copied and pasted, except beginning at sheet 2, the FIRST row of data is not copied over and the LAST row of data is only copying a portion. This error seems to repeat throughout the rest of the sheets. Here's my code:

Sub Test()
    Dim SH As Worksheet
    Dim J As Integer
    Application.ScreenUpdating = False
        For Each SH In ThisWorkbook.Sheets
            SH.Rows("1:3").EntireRow.Delete
            SH.Columns("A:B").EntireColumn.Delete
            SH.Columns("E:E").EntireColumn.Delete
            SH.Cells.UnMerge
        Next
        
    On Error Resume Next
    Sheets(1).Select
    Worksheets.Add ' add a sheet in first place
    Sheets(1).Name = "Combined"

    ' copy headings
    Sheets(2).Activate
    Range("A1").EntireRow.Select
    Selection.Copy Destination:=Sheets(1).Range("A1")

    ' work through sheets
    For J = 2 To Sheets.Count ' from sheet 2 to last sheet
        Sheets(J).Activate ' make the sheet active
        Range("A1").Select
        Selection.CurrentRegion.Select ' select all cells in this sheets

        ' select all lines except title
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select

        ' copy cells selected in the new sheet on last line
        Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
    Next
   
   With Worksheets("Combined")
        .Columns("A:D").EntireColumn.AutoFit
        .Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        .Columns("A:A").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    End With
End Sub

The attachment is made with dummy data that hopefully portrays the issue, however the code should not be ran on this attachment, it will not work properply, rather I'll explain the results of the code with my original file.

After the above code is ran, all of sheet 1 is copied properly into the new "Combined" sheet, but note starting at SHEET 2, COMPANY 23 is not included in the combined sheet, and yet it skips it and continues with COMPANY 24 then towards the bottom of SHEET 2, COMPANY 67 name is copied properly, but only ITEM REQUIRED 90 is pasted into the combined sheet. This error seems to replicate throughout.

Any help is greatly appreciated!! Thanks!

Mark excel tickler.xlsx