Merge 2 Worksheets with Similar Headings into 1 Master File

[iAmPatch]

Hi,

I've been trying to google and search the forum for a VBA code which would enable me to merge two worksheets with similar headings into one consolidated master file. But I can't seem to find the correct one. Can someone please help me?

My two worksheets are currently named as TrackerActive and TrackerArchive; all the information from both sheets should be consolidated / merged into a worksheet named TrackerMaster.

Thanks a lot to those who can help

 

[JoeMo]

TrackerActive has around 650 rows of data while TrackerArchive has about 4350 rows of data. The macro did not return any error at all. But the result file in TrackerMaster only has the 650 rows from TrackerActive and wasn't able to get the 4350 rows of data from TrackerArchive. There were no spaces in the names of the worksheets and even in the macro line.

I can't reproduce your problem, so have no way to diagnose it. Can you step through the code using the F8 key and see what exactly happens at this line:

S2.UsedRange.Copy Destination:=S3.Cells(nxRw, "A")

Also, before doing that add this line:

On Error GoTo 0

after this line:

Sheets("TrackerMaster").Delete

 

[iAmPatch]

I can't reproduce your problem, so have no way to diagnose it. Can you step through the code using the F8 key and see what exactly happens at this line:

S2.UsedRange.Copy Destination:=S3.Cells(nxRw, "A")

Also, before doing that add this line:

On Error GoTo 0

after this line:

Sheets("TrackerMaster").Delete

Hi @JoeMo thanks for providing the fix and sorry for getting back to you late. The macro now copies entries from the "TrackerArchive"; however, it copies everything including the heading (row 1)

I think that this is the code line that needs additional condition:

S2.UsedRange.Copy Destination:=S3.Cells(nxRw, "A")

May I kindly ask if I could bug you again for a fix?

Thanks

 

[JoeMo]

Hi @JoeMo thanks for providing the fix and sorry for getting back to you late. The macro now copies entries from the "TrackerArchive"; however, it copies everything including the heading (row 1)

I think that this is the code line that needs additional condition:

S2.UsedRange.Copy Destination:=S3.Cells(nxRw, "A")

May I kindly ask if I could bug you again for a fix?

Thanks

Of course it copies everything because your original post said nothing to the contrary. We can't read your mind or see your spreadsheet. You need to specify exactly what you want copied or post your layout so we can see what range or ranges you wish to include in the copy.

 

[iAmPatch]

Of course it copies everything because your original post said nothing to the contrary. We can't read your mind or see your spreadsheet. You need to specify exactly what you want copied or post your layout so we can see what range or ranges you wish to include in the copy.

@JoeMo I'm sorry for confusing you from the onset. Let me try again. Uhm, I have two worksheets, "TrackerActive" and "TrackerArchive":

• Both of these worksheets have information from Column A to Column AD
• Heading of these worksheets are the same - found in Row 1
  • This heading should be the same heading to be copied into "TrackerMaster"
• Only rows 2 up until the last row with data (for both "TrackerActive" and "TrackerArchive") should then be copied into "TrackerMaster"

Hope this clarifies the matter

 

[JoeMo]

Change this line:

S2.UsedRange.Copy Destination:=S3.Cells(nxRw, "A")

to this:

S2.UsedRange.Offset(1,0).Copy Destination:=S3.Cells(nxRw, "A")