Sub フィルターを複数条件でかけて削除する()

                                    '1はA列のこと、C列なら3
    Range("A1:A6").AutoFilter Field:=1, _
                          Criteria1:=Array("B社", "D社"), _
                           Operator:=xlFilterValues
                           
    Rows("2:1048576").Delete '1048576行はエクセルの最終行
    
    ActiveSheet.AutoFilterMode = False 'フィルタを解除
    
End Sub