Sub フィルターをかけて削除する()

    Range("A1:B6").AutoFilter Field:=1, Criteria1:="=C社" '1はA列・2はB列
    
    Rows("2:1048576").Delete '1048576行はエクセルの最終行
    
    ActiveSheet.AutoFilterMode = False 'フィルタを解除
    
End Sub