Please help with reading filters from another sheet

[Mangolili]

I have a spreadsheet of " n x n " columns and rows. Each column has x number of filters available to be selected. Now I can extract all available filters for one specific column (say column c1) into a separate sheet so that the new sheet ONLY contains filter A, filter B, etc for column c1 in the first column of the new sheet. How do I read the filters from that new sheet into a array? Please help, thank you.


Sub RestoreFilters()
' autofilter is already set false after redoAutofilter
' w.AutoFilterMode = False

Dim w As Worksheet
Set w = Sheets("Look Back")

' testing restore one of the filters
For i = 1 To UBound(filterArray(), 1)
If Not IsEmpty(filterArray(i, 1)) Then
w.Range("A1").AutoFilter field:=i, Criteria1:=CStr(filterArray(i, 1))
End If
Next i
End Sub

 

[Mangolili]

This is the first half of the codes I have, before the codes above


'Capture AutoFilter settings
With WS.AutoFilter
currentFiltRange = .Range.Address
With .Filters
ReDim filterArray(1 To .Count, 1)
For i = 1 To .Count
With .Item(i)
If .On Then
filterArray(i, 1) = .Criteria1
If .Operator Then
MsgBox "Only one filter per column please."
Exit Sub
End If
End If
End With
Next i

For i = 1 To .Count
If filterArray(i, 1) <> "" Then
'Paste distinct column values onto Values tab
WS.Range(Cells(1, i).Address & ":" & _
Cells(1, i).End(xlDown).Address).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Value").Range("A1"), Unique:=True
End If
Next i
End With
End With

 

[Mangolili]

Please help!