Удалить только значения формул и вставки

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