Sub УдСтрокиСклад()
Application.DisplayAlerts = False
PS = Range("A" & Rows.Count).End(xlUp).Row
    For I = PS To 1 Step -1
    If Cells(I, 10) = "БВХ Усть-Кут" Or Cells(I, 10).Value Like "КС-2 Олёкминская*" Or Cells(I, 10).Value Like "БВХ Беркакит*" Or Cells(I, 10).Value Like "БВХ Солянка" _
    Or Cells(I, 10).Value Like "КС-4 Нимнырская_5.4 - (Основной склад - ячейки)*" Or Cells(I, 10).Value Like "БВХ Большой Нимныр*" Then
        Rows(I).Delete
        End If
        Next

ActiveSheet.DrawingObjects.Delete      'здесь что-то не так
    Application.DisplayAlerts = True
' закрыть Макрос
Workbooks("макрос.xlsm").Close SaveChanges:=False
End Sub