Need to optimize the code

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.