仅删除公式和粘贴值

Question

我有一个出色的脚本，可以删除文件中所有工作表中的所有公式并仅粘贴值，尽管现在我需要添加例外（因为我想在文件中保留一些公式）。

如何添加例外，例如Sheet1，范围A10：A40和Sheet2，范围B5：D50等，这样这些特定工​​作表和范围内的公式仍将保留？

致谢

这是我删除所有工作表中所有公式的代码：

Sub Saveasvalue()
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub