Sub ssss()

    Selection.AutoFilter Field:= 1 , Criteria1:="Сидоров"
    Rows("7:11").Select
    Range("A11").Activate
    Selection.Delete Shift:=xlUp
    
End Sub

If ActiveCell.Value = "Сидоров" and "Иванов" and "Петров" Then

Public Sub VSEPereschetPrice()
If vbCancel = MsgBox("Вы установили курсор на начало проверяемого столбца?", _
vbQuestion + vbOKCancel, "Вопрос") Then Exit Sub

Do While ActiveCell.Value <> Empty

If ActiveCell.Value <=  1  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  2 )
If ActiveCell.Value >  1  And ActiveCell.Value <=  5  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 75 )
If ActiveCell.Value >  5  And ActiveCell.Value <=  10  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 55 )
If ActiveCell.Value >  10  And ActiveCell.Value <=  50  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 4 )
If ActiveCell.Value >  50  And ActiveCell.Value <=  80  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 3 )
If ActiveCell.Value >  80  And ActiveCell.Value <=  90  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 27 )
If ActiveCell.Value >  90  And ActiveCell.Value <=  100  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 22 )
If ActiveCell.Value >  100  Then
ActiveCell.Value = ActiveCell.Value + (ActiveCell.Value *  1 . 18 )

Else
ActiveCell.Offset( 1 ,  0 ).Activate
End If
Loop
End Sub

If ActiveCell.Value <> "Сидоров" Or _
  ActiveCell.Value <> "Иванов" Then
    Selection.EntireRow.Delete

Do While ActiveCell.Value <> Empty

If ActiveCell.Value <> "555" Or ActiveCell.Value <> "AKG" Or ActiveCell.Value <> "BENDIX" Or _
ActiveCell.Value <> "BENDIX" Or ActiveCell.Value <> "BERU" Or ActiveCell.Value <> "BOGE" Or _
ActiveCell.Value <> "BOSAL" Or ActiveCell.Value <> "BOSCH" Or ActiveCell.Value <> "BREMBO" Or _
ActiveCell.Value <> "CTC" Or ActiveCell.Value <> "FEBI" Or ActiveCell.Value <> "FILTRON" Or _
ActiveCell.Value <> "GATES" Or ActiveCell.Value <> "GKN" Or ActiveCell.Value <> "GMB" Or _
ActiveCell.Value <> "GRAF" Or ActiveCell.Value <> "HANS PRIES" Or ActiveCell.Value <> "LUK" Or _
ActiveCell.Value <> "IRB" Or ActiveCell.Value <> "JURD" Or ActiveCell.Value <> "KAYABA" Or _
ActiveCell.Value <> "KNECHT" Or ActiveCell.Value <> "LEMFORDER" Or ActiveCell.Value <> "LESJOFORS" Or _
ActiveCell.Value <> "LPR" Or ActiveCell.Value <> "MANN" Or ActiveCell.Value <> "NGK" Or _
ActiveCell.Value <> "NISSENS" Or ActiveCell.Value <> "MANN" Or ActiveCell.Value <> "SACHS" Or _
ActiveCell.Value <> "SKF" Or ActiveCell.Value <> "SNR" Or ActiveCell.Value <> "VDO" Or _
ActiveCell.Value <> "VERNET" Or ActiveCell.Value <> "VICTOR REINZ" Or _
ActiveCell.Value <> "ZF" Then
   

Selection.EntireRow.Delete
Else 
ActiveCell.Offset( 1 ,  0 ).Activate
End If
Loop
End Sub

Public Sub MoskvarechieBrend()
Dim lngCounter As Long, dblTemp As Long
If vbCancel = MsgBox("Âû óñòàíîâèëè êóðñîð íà íà÷àëî ïðîâåðÿìîãî ñòîëáöà?", _
vbQuestion + vbOKCancel, "Âîïðîñ") Then Exit Sub

lngCounter =  0 

Do While ActiveCell.Offset(lngCounter,  0 ).Value <> Empty
dblTemp = ActiveCell.Offset(lngCounter,  0 ).Value

If dblTemp <> "555" Or dblTemp <> "AKG" Or dblTemp <> "BENDIX" Or _
dblTemp <> "BENDIX" Or dblTemp <> "BERU" Or dblTemp <> "BOGE" Or _
dblTemp <> "BOSAL" Or dblTemp <> "BOSCH" Or dblTemp <> "BREMBO" Or _
dblTemp <> "CTC" Or dblTemp <> "FEBI" Or dblTemp <> "FILTRON" Or _
dblTemp <> "GATES" Or dblTemp <> "GKN" Or dblTemp <> "GMB" Or _
dblTemp <> "GRAF" Or dblTemp <> "HANS PRIES" Or dblTemp <> "LUK" Or _
dblTemp <> "IRB" Or dblTemp <> "JURD" Or dblTemp <> "KAYABA" Or _
dblTemp <> "KNECHT" Or dblTemp <> "LEMFORDER" Or dblTemp <> "LESJOFORS" Or _
dblTemp <> "LPR" Or dblTemp <> "MANN" Or dblTemp <> "NGK" Or _
dblTemp <> "NISSENS" Or dblTemp <> "MANN" Or dblTemp <> "SACHS" Or _
dblTemp <> "SKF" Or dblTemp <> "SNR" Or dblTemp <> "VDO" Or _
dblTemp <> "VERNET" Or dblTemp <> "VICTOR REINZ" Or _
dblTemp <> "ZF" Then
   

Selection.EntireRow.Delete

Else

lngCounter = lngCounter +  1 

End If
Loop
End Sub

If ActiveCell.Value <> "Сидоров" Or _
  ActiveCell.Value <> "Иванов" Then
    Selection.EntireRow.Delete