Sub СкрытиеСтрокПоУсловию() 
Dim DR As Range, LastRow As Long, r As Long 
Dim ra As Range, delra As Range, ТекстДляПоиска As String 
Application.ScreenUpdating = False ' отключаем обновление экрана 

ТекстДляПоиска = "Наименование ценности" ' скрываем строки с таким текстом 

' перебираем все строки в используемом диапазоне листа 
For Each ra In ActiveSheet.UsedRange.Rows 
' если в строке найден искомый текст 
If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) IsNothing Then 
' добавляем строку в диапазон для скрытия 
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra) 
End If 
Next 
' если подходящие строки найдены - скрываем их 
If Not delra Is Nothing Then delra.EntireRow.Hidden=TRUE 
End Sub
 

Public Sub Delete_Row()
 
 Dim DR As Range, LastRow As Long, r As Long
 On Error Resume Next
 Set DR = Application.InputBox("Выделите диапазон, в котором необходимо удалить строки с нулевым значением:", _
"Выделите диапазон", Default:=ActiveCell.Address, Type:=8
 On Error GoTo 0
 If DR Is Nothing Then
     Exit Sub
 Else
     LastRow = DR.Rows.Count
     LastRow = LastRow + DR.Row - 1
     Application.ScreenUpdating = False
     For r = LastRow To DR.Row Step -1
        If Cells(r, DR.Column).Value = 0 Then Rows(r).Hidden = True       
     Next r
  End If
 
End Sub