How to Combine several sheets to one sheet

How to combine several sheets to one sheet

Requirement:

The user has multiple sheets in one workbook and I need combined data in one separate sheet. The user's data is from AA to AZ and all are dynamic rows.

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/1205205-combine-several-sheets-to-one-sheet

Solution:

Code:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    Dim ws As Worksheet
    Worksheets.Add(After:=Sheets(Sheets.Count)).Name = "Combined"
    Sheets(2).Rows(1).EntireRow.Copy Sheets("Combined").Cells(1, 1)
    For Each ws In Sheets
        If ws.Name <> "Combined" Then
            LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            ws.Range("A2:Y" & LastRow).Copy Sheets("Combined").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Mumps.