Sorting data based upon "Rules" sheet

I am having trouble figuring out the best way of doing this. I would like to sort a group of data based upon the characteristics of each row. Here's the kicker, the inputs must be in a "Rules" worksheet, so that they can be viewed 'at a glance' and changed via hand. The Output spreadsheet should only output the list of names and their corresponding data that abides by all of the rules.

I have gotten the first part done, which is getting the data stored into dictionaries, so that it can be recalled. Unfortunately, I don't know how to go about doing the next steps. I would be very appreciative of any help the VBA gods can give . I have attached a copy of the spreadsheet.

Thanks,
Mike

I'd be tempted to change your ratio rule column to just a number rather than "Ratio 1"

You could then replace all your code with the following:

Public Sub sortIt()
Dim rng As Range
Dim arrFields As Variant
Dim arrRules As Variant
Dim x As Integer


Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With Sheets("Rules")
    Set rng = .Range("A2").CurrentRegion.Offset(1, 2)
    arrRules = rng.Resize(rng.Rows.Count - 1, rng.Columns.Count - 2).Value
    arrFields = .Range("B2:B" & .Range("B2").End(xlDown).Row).Value
End With


With Sheet1.Range("B13:Q135")
    For x = 1 To UBound(arrRules)
        .AutoFilter Field:=arrFields(x, 1) + 1, Criteria1:=arrRules(x, 1) & arrRules(x, 2)
    Next x
    
    Sheet3.Cells.ClearContents
    Set rng = .SpecialCells(xlCellTypeVisible)
    If Not rng Is Nothing Then rng.Copy Sheet3.Range("A1")
    


End With

    Sheet1.ShowAllData
    Sheet3.Cells.ClearFormats

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic


End Sub

Kyle, this looks like a promising start. I think I'll be able to work off of this. I'll keep you posted on how it goes. I appreciate the help from a fellow rugger (and/or fan)

Mike