Delete Row When A Selected Word Is In A Sentence

i have this macro that currently looks in column J and if a cell contains "Total" it deletes the entire row.

Now what i need is to check in same column but i need it to delete the entire row if any part of the sentence in a cell within column J contains "Main Total"



Sub Macro1()

'this deletes all rows if cell in column J says "total"

Dim DeleteValue2 As String
Dim rng2 As Range
Dim calcmode2 As Long

With Application
calcmode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With