Hello,
Very new to VBA so any help is much appreciated!
I have a workbook with over 25 worksheets, of these worksheets I would like to merge 16 of them to one "Master" worksheet.
These 15 worksheets are all in the same format with Row 1 being headings.
Each worksheet is created from a dynamic list of data.
I have found the code below which I have tried using however the problem with this is that it merges ALL worksheets I only want to merge the worksheets that I specify.
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
Thank you
Bookmarks