Is this macro to convert formulas to values the quickest way to go about it.

Sub ConvertFormulasIntoValues()

Application.ScreenUpdating = False
Sheets("Sheet1").Select
Dim rng As Range
Dim formulaCell As Range
Set rng = Range("D9:D9000")

'Check each cell in the range if it has a formula
For Each formulaCell In rng
If formulaCell.HasFormula Then
formulaCell.Formula = formulaCell.Value
End If
Next formulaCell
Application.ScreenUpdating = True

End Sub