Is there a way to replace all formulas except subtotals?

[tonyjyoo]

Is there a way to replace all formulas except subtotals? Currently I'm doing it manually...

 

[Fluff]

Do your subtotals use the SUBTOTAL function?

 

[tonyjyoo]

Do your subtotals use the SUBTOTAL function?

Yes

 

[Fluff]

In that case try

Sub tonyjyoo()
   Dim Cl As Range
   
   For Each Cl In Cells.SpecialCells(xlFormulas)
      If InStr(1, Cl.Formula, "subtotal", 1) = 0 Then Cl.Value = Cl.Value
   Next Cl
End Sub

This assumes that when you say replace, you mean convert to values