Я знаю, что это немного поздно для вечеринки, но я обнаружил взломать это ...
Попробуйте этот код:
Sheets(1).Activate
Sheets(2).Range("A1").Copy
Sheets(2).Range("A1").PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
Обратите внимание, что это это взлом, но он делает трюк !!