не похоже

. Макрорекодер не записывает команду
Код:

Application.ScreenUpdating
Еще одно замечание. Для сокращения кода параметры, которые и так установлены по-умолчанию, вписывать не обязательно. Я вот о чем:
Код:

.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
можно заменить на
Код:

.PasteSpecial Paste:=xlPasteValuesAndNumberFormats