Obtener el rango de los valores

Prueba esto y me dices si es lo que buscas... copia y pega tu tabla de ejemplo en A1, dejando los títulos en A1 y A2 y debajo los datos.
En G8 escribe la condición de orden, 233 por ejemplo... contar. Si. Conjunto permite varios criterios a la vez y varios rangos para validar esas condiciones.
En este ejemplo en E10 escribes 5031(que es desde) y en f10 5036 (es hasta), la fórmula encontrará que tienes 2 coincidencias, de acuerdo a los datos que escribiste.
=CONTAR.SI.CONJUNTO$B$2:$B$17;">="&E10;B1:B16;"<="&F10;$A$2:$A$17;"="&$G$8)
Por otra parte para construir una tabla con rangos, relativamente automática a base de tu filtro, yo usaría subtotales con max y el min, y definiendo intervalos, por ejemplo de 10 en 10, es decir desde 5031 hasta 5040.
La otra opción que tu piensas con filtro y rango variable, te puedo dar este ejemplo de uso para que la analices  =SUBTOTALES(2;F8:DESREF(E8;CONTARA($B$8:$B$500)-2;0)) pero ojo que con esto último no veo todavía como llegarías al resultado con intervalos, me parece mejor opción el contar.si.conjunto.
Me cuentas como te va.

Lo había intentado con filtros, la idea es que no fuera el trabajo de forma manual,
Gracias por tu tiempo, ya me dieron una solución,
  For Each DATO In Range("A:A").Rows
        ActiveCell.Offset(RowOffset:=1, ColumnOffset:=0).Activate
        FILA_DATO = FILA_DATO + 1
        If ActiveCell.Value = "" Then Exit For
        If ActiveCell.Value <> PEDIDO Then
            PEDIDO = ActiveCell.Value
            CUENTA_ORDEN = 0: TOTAL_RANGOS = TOTAL_RANGOS + 1
            ActiveCell.Offset(RowOffset:=-(FILA_DATO - TOTAL_RANGOS), ColumnOffset:=7).Activate
            ActiveCell.FormulaR1C1 = "=R[" & (FILA_DATO - TOTAL_RANGOS) & "]C[-6]"
            ORDEN = ActiveCell.Value
            ActiveCell.Offset(RowOffset:=0, ColumnOffset:=2).Activate
            ActiveCell.FormulaR1C1 = "=1+RC[-1]-RC[-2]"
            ActiveCell.Offset(RowOffset:=(FILA_DATO - TOTAL_RANGOS), ColumnOffset:=-9).Activate