Filtering results into array

[Lavina]

Hello guys,

im trying to filter some data and add it into an array

My filtering code is:
            If Sheets(sheetName).AutoFilterMode Then Sheets(sheetName).AutoFilter.ShowAllData
            lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
            lastRow = Cells(Rows.Count, 1).End(xlUp).Row
            Set filterRng = Range(Cells(1, 1), Cells(lastRow, lastCol))
            filterRng.Select
            isItEmpty = IsEmpty(filterRng)
            If isItEmpty = False Then filterRng.AutoFilter 5, SKUInQuesion

Once filtering is completed id like to save all the data into an array.

Dim FullDataArray() As Variant
Dim selectedRange As Range
lastRow = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Set selectedRange = Range("A1:Q" + CStr(lastRow)).SpecialCells(xlCellTypeVisible)
FullDataArray = selectedRange.Value

After i run that my array gets filled in with only the 1 row, the header row

BUT if i try to copy paste the selection it copies everything i want to

What am i doing wrong?

 

[Lavina]

For now i will just copy paste it, push that into the array and remove the copy paste, but there has to be a better way

 

[Lavina]

After some stumbling around in the forum i found the solution:

Set rng = Range("A2:Q" & Cells(Rows.Count, "Q").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Set selectedRange = Range("A1:Q" + CStr(lastRow)).SpecialCells(xlCellTypeVisible)
FullDataArray = rng.Value
FullDataArray2 = selectedRange.Value

rng and FullDataArray containing the things i need.
I'm still unsure why though, its the same range selection:

Cells(Rows.Count, "Q").End(xlUp).Row is equal to lastRow