Macro con filtro avanzado,

Hola, tengo una tabla con diferentes curvas. Esas curvas son quiero calificarlas en las que son menores a un valor y mayores a ese mismo valor en otras dos pestañas.

El valor es variable para cada curva, y se calcula con referencias, por lo que no es un valor absoluto.

Lo que he pensado es hacer un Do while que vaya filtrando y copiando en las otras dos pestañas. Pero me da error al guardar en la variable rang y no se si el criterio < Tt esta bien puesto.

Otra cosa. Hay alguna manera de filtrar cada curva con un criterio, y no tener que hacer un do while , filtrr y borrar filtro para cada tabla de datos.

Esta es la parte del código que no tengo clara

ActiveSheet.Range(Cells(7, j), Cells(7, j + 1)).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Set rang = Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.AutoFilter
ActiveSheet.Range("rang").AutoFilter Field:=1, Criteria1:="<Tt ", _
Operator:=xlAnd
Selection.Copy

También he pensado que quizá con un if se podría hacer. Pero no se si la parte mayor al valor se podréía poner al principio en las primeras filas