VBA Excel final piece to the puzzle, hopefully removing formulas NOT converting table

[cizzett]

So I have been using the below VBA script to remove the formulas from my worksheet when im preparing to save and distribute the workbook but now that i am using a table instead of a range to feed the pivots etc I cannot use this same one.

When I run this it still removes all the formulas as desired and leaves the values in the fields but this also converts the table to a range.

Anyone have an idea how I can do the same thing, remove all formulas and leave the values but not convert my table to a range?

Sub RemoveFrmls()

    Application.ScreenUpdating = False
        Cells.EntireColumn.Hidden = False


     ' Remove Formulas
    Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Today")
        ws.UsedRange.Value = ws.UsedRange.Value
        
        Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

Try

Sub RemoveFrmls()


    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    ' Remove Formulas
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Today")
    ws.Cells.Copy
    ws.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub