Hello

I am hoping someone can assist me with this,
I have a sheet with subtotals within a Range over column B
I need to create a macro that will search within column B, find the grand total and replace the contents of cells O to U with a sum formula.
The Sum formula needs to Sum all values from Row 2 up to the row before The Grand Total Row. (So basically the entire 'Total' range)
I have tried to do a cell clear macro to at least find the relevant cell before i apply the formula with no luck:

Sub DeleteRows()
Dim c As Range
Dim SrchRng

Set SrchRng = ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp))
Do
Set c = SrchRng.Find("Grand Total", LookIn:=xlValues)
Cell(c.Row, "O").Select
Selection.ClearContents
Loop While Not c Is Nothing
End Sub