Скопируйте и сохраните рабочий лист Excel

Question

Я хочу скопировать и сохранить рабочий лист «Шаблон», VBA ниже работает нормально, но копирует также формулы, я хочу, чтобы копировались только значения ячеек указанного выше листа.

Private Sub CommandButton1_Click() ' Save Excel Copy

Dim FileName As String

Dim FilePath As String

Dim NewBook As Workbook

FilePath = "D:\"

FileName = Sheets("Template").Range("g14") & ".xls"

If Dir(FilePath & "\" & FileName) <> "" Then

    MsgBox "File " & FilePath & "\" & FileName & " already exists", vbInformation

    Exit Sub

Else

Set NewBook = Workbooks.Add

ThisWorkbook.Sheets("Template").Copy before:=NewBook.Sheets(1)

Application.DisplayAlerts = False

NewBook.SaveAs FileName:=FilePath & FileName

NewBook.Activate

On Error Resume Next

ActiveSheet.OLEObjects.Visible = True

ActiveSheet.OLEObjects.Delete

On Error GoTo 0

NewBook.Save

NewBook.Close

End If

End Sub