エラー：RangeクラスのAutoFilterメゾットが失敗しました。解消したい

Question

VBAにてオートフィルターのコードを書いています。

「RangeクラスのAutoFilterメゾットが失敗しました。」
というエラーが発生していて困っています。

**やりたい内容

・ユーザーフォームのリストボックスの値を選択する（リストボックスは複数選択でき、５つ用意してある）
・それぞれのリストボックスで選択された項目をANDでオートフィルタ―かけたい**

実際のコードと、ユーザーフォーム、データシートの画像を貼り付けました。
ご参考ください。

どのようなコードにすれば実現できるでしょうか。
ご教示お願い申し上げます。

Dim RER() As String
   Dim r As Integer
   Dim rnt As Integer
   

For r = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(r) = True Then
            
            rnt = rnt + 1
            ReDim Preserve RER(1 To rnt)
            RER(rnt) = ListBox1.List(r)
        End If
    Next r
 
   
    
    
 '選択項目でのフィルター
'RERと同様にJER,FER,KER,GERは作成しています
 
  Dim arr As Variant
  arr = Split(Join(RER, ",") & "," & Join(JER, ",") & "," & Join(FER, ",") & "," & Join(KER, ",") & "," & Join(GER, ","), ",")
Worksheets("製品データ").Range("A1").AutoFilter Criteria1:=arr, Operator:=xlFilterValues

Answer 1

列毎にフィルターをかける必要があります。

    With Worksheets("製品データ").Range("A1")
        .AutoFilter Field:=2, Criteria1:=RER, Operator:=xlFilterValues
        .AutoFilter Field:=3, Criteria1:=JER, Operator:=xlFilterValues
        ’以下略
    End With

Comments

[riko]

ご回答ありがとうございます。
上手くいきました

Answer 2

こういうことですか？

Worksheets("製品データ").Range("A1").AutoFilter Field:= 2, Criteria1:=RER, Operator:=xlFilterValues
Worksheets("製品データ").Range("A1").AutoFilter Field:= 3, Criteria1:=JER, Operator:=xlFilterValues
Worksheets("製品データ").Range("A1").AutoFilter Field:= 4, Criteria1:=FER, Operator:=xlFilterValues
Worksheets("製品データ").Range("A1").AutoFilter Field:= 5, Criteria1:=KER, Operator:=xlFilterValues
Worksheets("製品データ").Range("A1").AutoFilter Field:= 6, Criteria1:=GER, Operator:=xlFilterValues

Comments

[riko]

ご回答ありがとうございます。
上手くいきました！！