vba code to convert formulas into text.

You can do it by yourself very easely:
Just launch the macro record
and select all cells in sheet2, then Paste Special value

Option Explicit

Sub Macro1()

    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D9").Select
End Sub

Not sure to get it right.
Is the result sent correct?
What is your need: Prepare the formulas in sheet2 or just freeze the values

See here

Option Explicit

Sub Formulaprepa()
Dim LastCol  As Long
Dim lastRow  As Long

    With Sheets("Sheet1")
        lastRow = .Range("A1").CurrentRegion.Rows.Count
        LastCol = .Range("A1").CurrentRegion.Columns.Count
    End With
    With Sheets("Sheet2")
        .Cells.ClearContents
        .Range(.Cells(1, 1), .Cells(lastRow, LastCol)).Formula = "=SUBSTITUTE(CLEAN(TRIM(Sheet1!A1)),CHAR(160),"""")"
    End With
End Sub

Sub CopyFormula()
    With Sheets("Sheet2").Range("A1").CurrentRegion.Cells
        .Value = .Value
    End With
End Sub