Sub УдалитьНенужныеСтроки()
    Const Статья$ = "214050000"
    Const ПБФ$ = "91301"
    Const ZKF1$ = "3", ZKF2$ = "10"
    Dim Rng As Range, T(), K As Long
    Application.ScreenUpdating = False
    Set Rng = Range("A1").CurrentRegion
    T = Rng.Value
    For K = UBound(T, 1) To 2 Step -1
        If T(K, 1) = Статья Then
            If T(K, 4) = ПБФ And T(K, 3) = ZKF1 Then Rng.Cells(K, 3) = ZKF2 Else Rng.Rows(K).Delete xlUp
        End If
    Next
    Application.ScreenUpdating = True
End Sub