Advanced Filter Criteria VBA to include top 10 values

[jsepanski]

Hi. I am working on a audit form that uses the excel advanced filter by having the user input data into the criteria range and then results are copied and pasted from other hidden sheet into a table below their data entry. I had to add a helper column in my rawdata to rank the details but had to hardcode these results to due file crashing. My advanced filter works great but now I want to include the top 10 values from my new helper column in my filtered data. I am not sure how to add this to my criteria range to be included with all criteria in the criteria range. For example I have criteria hidden from the end user so its a set value to what they add to a column titled filter and the values to be "SHOW". I want to add the top 10 value based off the results that are marked as "SHOW" and have the 10 top values in the rank column.

Am I able to add this to my vba code?
Sheets("Details").Columns("A:P").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Dashboard!Supervisor"), CopyToRange:=Range("B82:k82"), _
Unique:=False
Range("B82:K82").Select
ActiveWorkbook.Worksheets("Dashboard").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Dashboard").Sort.SortFields.Add Key:=Range( _
"J83:J6215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
ActiveWorkbook.Worksheets("Dashboard").Sort.SortFields.Add Key:=Range( _
"G83:G6215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Dashboard").Sort.SortFields.Add Key:=Range( _


This is what my criteria range looks like and the table it is copied too

"F83:F6215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Dashboard").Sort.SortFields.Add Key:=Range( _
"B83:B6215"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Dashboard").Sort
.SetRange Range("B82:K6215")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With