I'm trying (without success) to consolidate two worksheets in two separate tabs within the same file. They have come from the same source file that was too large to export all of FY2014 data, so it was broken up into semi-year (Q1-Q2, and Q3-Q4). They have the same exact structure/format, however trying to consolidate them is not working.
The Q1-Q2 file: A1..X553210 with a header row
The Q3-Q4 file: A1..X619378 with a header row
I tried using the following Code I found off the internet, which DID create a new tab called "Consolidated", but it only copied and pasted the Q3-Q4 file cell for cell and row for row (duplicate):
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