Macro to search for phrase and delete that cell and 1 cell to the right.

try this:

Option Explicit

Sub delTestT()
    Dim i As Long, c As Range
    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    For Each c In rng
        If InStr(c, "TEST TOTAL") > 0 Then
            c.Offset(0, 1).Delete
            c.Delete
        End If
    Next c
End Sub