How to I combine excel worksheets?

[msnyc07]

I have a large worksheet with about 200 sheets all with the same field layout.

I want to combine into one worksheet and pull the sheet name into columnX so
I keep the organization. Can this be done easily?

 

[Ron de Bruin]

With a macro it is easy (I think)

Start here
http://www.rondebruin.nl/copy2.htm

If it is for a few cells check out
http://www.rondebruin.nl/summary.htm

 

[msnyc07]

Thanks for the script!

What if I simultaneously pull the sheet name into ColumnX for each record so
I can retain categorization?

 

[Ron de Bruin]

Which columns do you want to merge

 

[msnyc07]

Well I am merging basically columns 1-5, each has the same name convention in
row 1.

I want to combine in one sheet, but in row 6 I want to push the name of the
sheet so once it is combined i retain the categories I used the sheets for.

 

[Ron de Bruin]

Change the H to the column you want in this line
'Optional: This will copy the sheet name in the H column
DestSh.Cells(Last + 1, "H").Resize(CopyRng.Rows.Count).Value = sh.Name