Need to optimize the code

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

If you are just moving data without any conditions or at least moving a block of cells/data this is the fastest method for doing so. See attached sample.

Basically dump the source range to an array and then dump the array into the destination range.

EDIT: It also doesnt help you have 38,534 styles in the workbook you attached. Presuming its based on your actual file you likely have the same issue in your file.

Your used range in the MML sheet goes way beyond your data too. So you have excess cells.

Also your module 2 code appears like it may not be very efficient though its not 100% clear what your doing, can you explain the purpose of the AddSheets routine and the logic behind it?

You also use a table in MML sheet but do not use any listobject parts (rows, columns, etc) in your code.