Populate array with large filtered range

Hi all.

There has got to be an easy way to do this. I am trying to populate a large sheet with many columns and many rows into an array.

The caveat is that the rows are filtered.

Assuming declarations...

LastRow = WS.Cells(Rows.Count, 2).End(xlUp).Row
arMyArray = WS.Range("A1:D" & LastRow).SpecialCells(xlCellTypeVisible)

I would rather not loop xlCellTypeVisible and take forever to loop every row and every column value into an array.

Is there an easier way to populate an array with filtered rows?


Cheers