need Macro to combine multiple workbooks into one

[Dan]

Hello -

I am wanting to have a macro take approx. 200 Excel workbooks and
append them all into one workbook.

Facts:
* I have 200 workbooks each with it's own unique name. 1.xls,
2.xls, 3.xls, ... 200.xls.
* Each workbook contains only 1 worksheet
* Each workbook contains the same 4 column headings
* Workbooks all have different amount or rows
* Looking to combine everything regardless of duplicates into one
large workbook with the same 4 column headings.

Can anyone provide some newbie VBA code/Macro which could faster then
the old "cut and paste" method.

Thanks!

 

[Ron de Bruin]

Hi Dan

Try
http://www.rondebruin.nl/copy3.htm

 

[Dan]

Thanks. I gave this a try but it appended all of the columns next to
each other (ie "across") and I wanted it to add the information to the
next available row (ie "down").

 

[Ron de Bruin]

Use

http://www.rondebruin.nl/copy3.htm#header

Change
Set sourceRange = mybook.Worksheets(1).Range("A2:IV" & lrow)

to
Set sourceRange = mybook.Worksheets(1).Range("A2" & lrow)
If you want to copy the cells in A

 

[Dan]

Looks like it almost got it. I am getting an error in...

sourceRange.Copy destrange

....a message box pops up and says it can't copy/paste because the cells
aren't the same size.

Sorry, I'm quite a novice here on the VBA side. Thanks!

 

[Dan]

Fixed the error. Thanks for your help! Happy Holidays!