filtered range to 2-Day array

[ericlch16]

I have a range that has a couple of filters.

Set rng = .Range(.Cells(startrowsort, 1), .Cells(lastemptyrowsort, 15))
TempArray() = rng

However I wanted that array to contain only VISIBLE data. Right now it includes everything data(visible and not visible). Is there a quick way to get only visible data to an array without LOOPING ?

 

[JoeMo]

Set rng = .Range(.Cells(startrowsort, 1), .Cells(lastemptyrowsort, 15)).SpecialCells(xlCellTypeVisible)

will include only visible cells, but if those cells are not all contiguous you would have to loop through each area of rng and create an array for each area.
Here's an example of a range (R) that has three areas with values for each in the array Varr().

Sub test()
'Create a non-contiguous range that has 3 areas (one cell in each area)
Dim R As Range, Varr
Set R = Range("B2,C6,E9")
ReDim Varr(1 To R.Areas.Count)
For i = 1 To R.Areas.Count
    MsgBox R.Areas(i).Address
    Varr(i) = R.Areas(i).Value
    MsgBox Varr(i)
Next i
End Sub