Sub Del_SubStr() 
 Dim sSubStr As String 'искомое слово или фраза(может быть указанием на ячейку) 
 Dim lCol As Long 'номер столбца с просматриваемыми значениями 
 Dim lLastRow As Long, li As Long 
 Dim lMet As Long 

 sSubStr = InputBox("Укажите значение, которое необходимо найти в строке", "Запрос параметра", ""  
 If sSubStr = "" Then lMet = 0 Else lMet = 1 
 lCol = Val(InputBox("Укажите номер столбца, в котором искать указанное значение", "Запрос параметра", 1)) 
 If lCol = 0 Then Exit Sub 

 lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count 

 Application.ScreenUpdating = 0 
 For li = lLastRow To 1 Step -1 
 If -(InStr(Cells(li, lCol), sSubStr) > 0) = lMet Then Rows(li).Delete 
 Next li 
 Application.ScreenUpdating = 1 
End Sub