|The reason no one has responded is probably because your code is really hard to read. I assume it was created by the Macro Recorder.|
You should always clean up any code created by the Recorder to make it easier to follow/troubleshoot.
For example, you don't have to select an object in VBA in order to perform an action on it.
Therefore, each section of code that looks like this:
Application.CutCopyMode = False
Can be replaced with something like this:
In addition, the last line in this section is a waste since you've already selected a sheet by name and then selected it again once it's the ActiveSheet. What's the point?
Clean up your code and repost it so we don't have to search through all of the bloat written by the Macro Recorder.
It might also help if you read this How-To on troubleshooting VBA Code before you start cleaning up your code.
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.