Button to Copy Column Range with ActiveCell position, Losing formatting after 3rd column

Quick background of project:

I have an excel table where the furthest right column needs to be copied one column to the right each time the button above that furthest right positioned column is pushed. Everything must be copied over, including values and formats. I have this working great except that after the "third" newly created column, the formatting is lost. I'm now at the point where I need some fresh eyes to look at this code for me.

I've given it 4 hours of troubleshooting and I'm nowhere further ahead then I was 4 hours ago. Any help, or direction that somebody can give me is greatly appreciated.

Here is my working code. (Up until the "4th" new column that is)

Please Login or Register  to view this content.

Please don't hesitate to respond with any questions or concerns. I will be very quick to reply as I need to clear this hurdle before I can continue on with the project.

Thank you for your time AlphaFrog. See attached example file.

Thank you AlphaFrog. The code seems to work great, albeit, a tad bit slower to process for some reason, but still works great.

I didn't even think of referencing the table object.

Only thing is that I actually do want to copy over that button instead of moving it. Reason being is I'd like to give the user
the ability to delete columns should they need to. I'm working on tweaking that second part of the code right now to see if I
can make that happen.

I just plopped this back in the middle portion there and it's back to normal. Also, calculation speed seemed to increase back to normal again too.

Please Login or Register  to view this content.

Thanks again for your help AlphaFrog!!

Awesome idea. I just put that in there and it's much more pleasing to the eye. Thanks for the great idea! Now onto the next part of this voyage.

Once again, I can't thank you enough kind sir. May your life be filled with a million good karma's.