Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
 Dim krit1 As String
    Dim krit2 As String
    Dim LatRow As Long
    Dim ii As Long
    krit1 = Range("E1").Value
    krit2 = Range("E2").Value
      LatRow = Cells(Rows.Count, 1).End(xlUp).Row
        For ii = LatRow To 1 Step -1
          If Cells(ii, 2) = krit1 Or Cells(ii, 2) = krit2 Then
                Range(Cells(ii, 1), Cells(ii, 2)).Delete Shift:=xlUp
          End If
        Next
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
    Application.DisplayAlerts = True
End Sub

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    Dim krit1 As String
    Dim krit2 As String
    Dim krit3 As String
    Dim LatRow As Long
    Dim LatRow1 As Long
    Dim ii As Long
    krit1 = Range("E1").Value
    krit2 = Range("E2").Value
    
      LatRow = Cells(Rows.Count, 1).End(xlUp).Row
        For ii = LatRow To 1 Step -1
          If Cells(ii, 2) = krit1 Or Cells(ii, 2) = krit2 Then
                         LatRow1 = Cells(Rows.Count, 1).End(xlUp).Row
                         krit3 = Cells(ii, 1).Value
                        Range("$A$1:$B$" & LatRow).AutoFilter Field:=1, Criteria1:= _
                         krit3
                        LatRow1 = Cells(Rows.Count, 1).End(xlUp).Row
                        With Range("A2:A" & LatRow1)
                            .SpecialCells(xlCellTypeVisible).Select
                            .ClearContents
                            .Range("$A$1:$B$" & LatRow).AutoFilter Field:=1
                        End With
                    Range(Cells(ii, 1), Cells(ii, 2)).Delete Shift:=xlUp
          End If
        Next
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
    Application.DisplayAlerts = True
End Sub