Create new worksheet keeping source column widths

When running the below code, I lose the original column widths due to the autofit line. Is there an alternative that lets me maintain my source column widths?

Please Login or Register  to view this content.

Something like this will copy the worksheet, then clear the contents keeping the column widths.
You can then continue with the code to transfer the info.

Test it out.

Please Login or Register  to view this content.