Try
 DeleteValue = "<>*total*"

Like this

Sub Delete_with_Autofilter()
   Dim DeleteValue As String
   Dim rng As Range
   Dim calcmode As Long

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

   'Fill in the value that you want to delete
   'Tip: use DeleteValue = "<>ron" to delete rows without ron
   DeleteValue = "<>*total*"

   'Sheet with the data, you can also use Sheets("MySheet")
   With ActiveSheet

       'Firstly, remove the AutoFilter
       .AutoFilterMode = False

       'Apply the filter
       .Range("A1:A" & .Rows.Count).AutoFilter Field:=1, Criteria1:=DeleteValue

       With .AutoFilter.Range
           On Error Resume Next
           Set rng = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
                     .SpecialCells(xlCellTypeVisible)
           On Error GoTo 0
           If Not rng Is Nothing Then rng.EntireRow.Delete
       End With

       'Remove the AutoFilter
       .AutoFilterMode = False
   End With

   With Application
       .ScreenUpdating = True
       .Calculation = calcmode
   End With

End Sub