Using vba to filter data

Hi,
Could you help me? I am trying to filter data based on a number of criteria (that changed) in a report.
In sheet 4, I have 6 criterials
In sheet 1, I have report and I want to filter in column B (AutoFilter Field:=2) those 4 criterials

The record macro code, based on 4 criterials is:
ActiveSheet.Range("$A$1:$W$197").AutoFilter Field:=2, Criteria1:= _
"name A"
ActiveSheet.Range("$A$1:$W$197").AutoFilter Field:=2, Criteria1:= _
"=name A", Operator:=xlOr, Criteria2:= _
"=name B"
ActiveSheet.Range("$A$1:$W$197").AutoFilter Field:=2, Criteria1:=Array( _
"name A", "name B", _
"name C"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$W$197").AutoFilter Field:=2, Criteria1:=Array( _
"name A", "Name B", _
"name C", _
"name D"), Operator:=xlFilterValues

The problem is Name A, B, C, D changes and could be increased based on the sheet 4.

I have stored the value to array and the array work. But I dont know how to make the filter works.

My code is

Dim vArray() As Variant
Dim iRow As Integer
Dim iCol As Integer
Dim iNumRow As Integer
Dim iNumCol As Integer

Sheets("Sheet4").Select

iNumRow = Range("a1").CurrentRegion.Rows.Count
iNumCol = Range("a1").CurrentRegion.Columns.Count

ReDim vArray(1 To iNumRow, 1 To iNumCol)


For iRow = LBound(vArray, 1) To UBound(vArray, 1)


For iCol = LBound(vArray, 2) To UBound(vArray, 2)


vArray(iRow, iCol) = Cells(iRow, iCol).Value

Next
Next

Sheets("Report").Select

ActiveSheet.Range("$A$1:$W$197").AutoFilter Field:=2, Criteria1:=vArray(iRow, iCol), Operator:=xlFilterValues

I know the bit of code doesnt work is the last one. But I dont know how to fix it.
could you please help?

Many thanks
Kim