excel vba Assign cell value to variable from Autofilter result - vba

Question

I need to get the values from column N2 and M2, after using autofilter, the assignation only gives me values present in the entire sheet not in the autofilter range.
Sub mainSub()
Dim fRngb as Range
For Each key In fCatId.Keys
With wshcore
llastrow = wshcore.Range("A" & Rows.Count).End(xlUp).Row
.AutoFilterMode = False
.Range("A1:N" & llastrow).AutoFilter
.Range("A1:N" & llastrow).AutoFilter Field:=1, Criteria1:=fCatId(key)
min = WorksheetFunction.Subtotal(5, Range("H:H"))
max = WorksheetFunction.Subtotal(4, Range("H:H"))
'This does not work. it gives the first 13,2 value not the filtered one.
Set fRngb = wshcore.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
'MsgBox fRngb.Cells(13, 2)
'I've also tried this:
'Range("K2:K2").CurrentRegion.Value(2)
Debug.Print fRngb.Cells(13, 2) & " - " & Range("K2:K2").CurrentRegion.Value(2)
End With
Next key
End Sub
any suggestions?

Answer 1

edited after OP's clarification:
use .Areas() property of Range object to return a collection of all contiguous ranges its is made of
get its first "area" with index 1 :.Areas(1)
get its first cell resizing it down to one row: .Areas(1).Resize(1)
here follows full code:
Sub mainSub()
Dim fRngb As range
With wshcore
With .range("A1:N" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For Each Key In fCatId.Keys
.AutoFilter field:=1, Criteria1:=fCatId(Key)
Min = WorksheetFunction.Subtotal(5, .Columns("H"))
Max = WorksheetFunction.Subtotal(4, .Columns("H"))
Set fRngb = .Columns("N").Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible) '<--| get all column "N" (relative to considered range) filtered values excluded header row
MsgBox fRngb.Areas(1).Resize(1).Address '<--| get its first cell
.AutoFilter
Next Key
End With
End With
End Sub
I guess fCatId is some Public variable of Dictionary type... Otherwise you must pass it to mainSub as a parameter