```
Dim drow As Range
'##Looped eqts
For Each drow In Range("D3:D" & Cells(Rows.Count, "B").End(xlUp).Row)
If Len(drow.Value) > 1 Then
Range("E" & drow.Row) = "Equation"
Range("F" & drow.Row) = "Equation"
Range("H" & drow.Row) = "Equation"
Range("I" & drow.Row) = "Equation"
Range("J" & drow.Row) = "Equation"
Range("K" & drow.Row) = "Equation"
Range("L" & drow.Row) = "Equation"
Range("M" & drow.Row) = "Equation"
Range("O" & drow.Row) = "Equation"
Range("P" & drow.Row) = "Equation"
End If
Next
For Each drow In Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If drow.Value Like "* Total" Then
Range("E" & drow.Row) = "Equation"
Range("F" & drow.Row) = "Equation"
Range("H" & drow.Row) = "Equation"
Range("I" & drow.Row) = "Equation"
Range("J" & drow.Row) = "Equation"
Range("K" & drow.Row) = "Equation"
Range("L" & drow.Row) = "Equation"
Range("M" & drow.Row) = "Equation"
Range("O" & drow.Row) = "Equation"
Range("P" & drow.Row) = "Equation"
End If
Next
For Each drow In Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If drow.Value = "Grand Total" Then
Range("E" & drow.Row) = "Equation"
Range("F" & drow.Row) = "Equation"
Range("H" & drow.Row) = "Equation"
Range("I" & drow.Row) = "Equation"
Range("J" & drow.Row) = "Equation"
Range("K" & drow.Row) = "Equation"
Range("L" & drow.Row) = "Equation"
Range("M" & drow.Row) = "Equation"
Range("O" & drow.Row) = "Equation"
Range("P" & drow.Row) = "Equation"
End If
Next
For Each drow In Range("C3:C" & Cells(Rows.Count, "B").End(xlUp).Row)
If drow.Value Like "* Total" Then
Range("E" & drow.Row) = "Equation"
Range("F" & drow.Row) = "Equation"
Range("H" & drow.Row) = "Equation"
Range("I" & drow.Row) = "Equation"
Range("J" & drow.Row) = "Equation"
Range("K" & drow.Row) = "Equation"
Range("L" & drow.Row) = "Equation"
Range("M" & drow.Row) = "Equation"
Range("O" & drow.Row) = "Equation"
Range("P" & drow.Row) = "Equation"
End If
Next
'other eqts
Range("G3:G" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = "Equation"
Range("N3:N" & Cells(Rows.Count, "B").End(xlUp).Row).FormulaR1C1 = "Equation"
```