Solved: assign value to array

[benong]

hi,
After filtering data, how can i assign these filtered data (visible cell) to an array?

    Worksheets("Sheet1").Range("H1").AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="none"