Try changing this line:
Rng.AutoFilter Field:=1, Criteria1:=">=" & r1, Operator:=xlAnd, Criteria2:="<=" & r2
to this:
Rng.AutoFilter Field:=1, Criteria1:=">=" & r1.Value2, Operator:=xlAnd, Criteria2:="<=" & r2.Value2