Sub УдалениеСтрокПоУсловию()
        Dim ra As Range, delra As Range, ТекстДляПоиска As String
        Application.ScreenUpdating = False    ' отключаем обновление экрана
       ТекстДляПоиска = InputBox("что ищем? ", "Введите текст для поиска")       ' удаляем строки с таким текстом
            i = 0
            ' перебираем все строки в используемом диапазоне листа
       For Each ra In selection
            ' если в строке найден искомый текст
           If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
                ' добавляем строку в диапазон для удаления
               If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
            i = i + 1
            End If
        Next
        ' если подходящие строки найдены - удаляем их
       answ = MsgBox("Найдено " & i & " строк. Удалить?", vbYesNo)
           Select Case answ
           Case vbNo
           Exit Sub
           End Select
           If Not delra Is Nothing Then delra.EntireRow.Delete
           Application.ScreenUpdating = True
    End Sub

Sub removeduplicates()
     ActiveSheet.UsedRange.removeduplicates Columns:=2, Header:=xlNo
End Sub