Filter på mere end 2 kriterier (VBA)

Sub Makro1()
With ActiveSheet
    .AutoFilterMode = False
    .Columns(2).Insert
    .Cells(1, 2) = "Vis"
    .Cells(2, 2).FormulaR1C1 = "=IF(OR(RC[-1]=""datterselskab1"",RC[-1]=""datterselskab2"",RC[-1]=""datterselskab3""),""Skjul"",""Vis"")"
    .Cells(2, 2).Select
End With
    Dim ref As String, kb As String, rk As Long
    kb = Mid(ActiveCell.Address, 2, InStr(2, ActiveCell.Address, "$") - 2)
    rk = ActiveSheet.Range("A65536").End(xlUp).Row
    Selection.AutoFill Destination:=Range(ActiveCell.Address & ":" & "$" & kb & "$" & rk)
    Selection.AutoFilter Field:=2, Criteria1:="Vis"
End Sub

Sub Slet_Rækker_Med_Indtast()

On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

        Dim svar1 As String
        Dim svar2 As String
        svar1 = InputBox("Indtast kolonne bogstav", "Slet rækker, der indeholder ord?")
        If svar1 = vbchancel Then GoTo Slut
        svar2 = InputBox("Indtast søge ord?", "Slet rækker, der indeholder ord?")
        If svar2 = vbchancel Then GoTo Slut

Columns(svar1 & ":" & svar1).Select
    Selection.AutoFilter
    ActiveSheet.Range(svar1 & ":" & svar1).AutoFilter Field:=1, Criteria1:="=" & svar2 & "" _
        , Operator:=xlAnd
    Sidste = Cells(Rows.Count, svar1).End(xlUp).Row
If Sidste = 1 Then GoTo Ingen
    Rows("2:" & Sidste).Delete Shift:=xlUp
Ingen:
    ActiveSheet.Range(svar1 & ":" & svar1).AutoFilter Field:=1
    Selection.AutoFilter
    Range("A1").Select
   
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True

End Sub