Then as a quick fix you could do something like this:
Earlier in the code change:
Set rng = ws2.range("A2:AJ" & lr)
to:
Set rng = ws2.range("A1:AJ" & lr)
then
MaxValue = Application.WorksheetFunction.Max(rng9)
MaxValue = MaxValue + 0.05
MinValue = MaxValue - 0.1
crit1 = Replace(">=" & MinValue, ".", ",")
crit2 = Replace("<=" & MaxValue, ".", ",")

ws1.AutoFilterMode = False
rng.AutoFilter Field:=6, Criteria1:=crit1, Operator:=xlAnd, Criteria2:=crit2
It should NOT matter what format the numbers are in (neither rng9 nor column F, they won't need to be similar formats either).