Copy sheets with the same name side-by-side

[CoSinus]

Hi everybody,

I need a VBA that does the following:
1.) it lets me choose the folder where the workbooks are located.
2.) it lets me select the Workbooks that are to be merged
3.) it merges all the workbooks by copying all the sheets with the same names in the selected workbooks,
4.) Copy all the sheets with the same names side by side, into a new worksheet
5.) the Sheets, which do not have the same name, are copied unchanged into the new Workbook
6.) in the new Workbook, the vba deletes all empty columns in all Sheets
7.) finally it lets me choose the place where to save the new marked sheet

The following code does most of it, but it does not copy the whole content of the sheets with the same names, only 2 columns.
I would be grateful if maybe someone could look at the code and correct this error, so that in the sheets with the same names all contents are copied side by side.
I have attached 2 sheets to work with the code.

Thanks for the help in advance.

Here is the code:

Please Login or Register  to view this content.

Thanks for the help