Faster Way to Copy and Paste Values

Please use code tags with your code as per form's rule.
It is difficult to comment as you have another call code, but generally speaking avoid using like select and activate.
You also nee dto use screen updating.

Application.ScreenUpdating = 0

after the dim statement

Application.ScreenUpdating = True

before the end of sub