Also, rework your code to remove all .Select and .Activate statements as they make the code run a lot slower than declaring Range and Sheet variables.
As previously noted, it would be strongly advised that you provide the forum with the code so that it can be looked at by the community to best find a solution for you.