Sub Sort()
    Range("A1:A3").Select
    Selection.AutoFilter Field:=1, Criteria1:="935"
    Selection.AutoFilter Field:=1, Criteria1:="940"
    Selection.AutoFilter Field:=1, Criteria1:="955"
End Sub
 

Private Sub CommandButton2_Click()
SUMM_
End Sub
 

Worksheets("СВ").select
 

Sub DelRow()
Dim ra As Range, delra As Range
Dim Poisk
'Poisk = Split("9001 3311 2533 4076 3186 )
    
Poisk = Application.WorksheetFunction.Transpose(Range([a1], [a1].End(xlDown)))

Application.ScreenUpdating = False
For Each ra In Columns(4).SpecialCells(xlCellTypeConstants)
  For i = 0 To UBound(Poisk)
    If Not ra.Find(Poisk(i), , xlValues, xlPart) Is Nothing Then
      If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
    End If
  Next i
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub 

Poisk = Split("9001 3311 2972 1420 1402 556 160 5029 2973 4756 4364 4973 644 2450 1655 4731_
4959 4592 4090 2533 4076 3186 4525 2418 2911 4001 4322 4078 46 3324 3773 3080 3007 1133_
 4110 2999 1461 4816  2679 3211 4122 3507 90902 4592 4765 2533 4076 и так далее ") 
 

Sub DelRow()
Dim ra As Range, delra As Range
Dim Poisk
Poisk = Split("SDR 2565 GHF FGIR")
Application.ScreenUpdating = False
For Each ra In Columns(2).SpecialCells(xlCellTypeConstants)
  For i = 0 To UBound(Poisk)
    If Not ra.Find(Poisk(i), , xlValues, xlPart) Is Nothing Then
      If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
    End If
  Next i
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub