Sub Del_SubStr_()

    Dim strWhatSearch As String 'искомое слово или фраза
    Dim varCol As Long          'номер столбца с просматриваемыми значениями
    Dim lr As Long, i As Long
    
    strWhatSearch = InputBox("Укажите значение, которое необходимо найти в строке")
    If strWhatSearch = "" Then Exit Sub
    
On Error GoTo Error1
    varCol = InputBox("Укажите номер столбца, в котором искать указанное значение")
   
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, varCol).End(xlUp).Row To 2 Step -1
        If Cells(i, varCol) = strWhatSearch Then
           Rows(i).Delete Shift:=xlUp
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "Готово!", vbInformation
    
Error1:
    Application.ScreenUpdating = True
End Sub