You could try converting your formulas that don't return anything to
blanks first...

Sub Macro1()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Text = "" Then c.Formula = ""
Next
End Sub

Cliff Edwards