Realizar filtro de acuerdo a valor de la celda

[dragonfire33]

Se puede realizar un filtro como se muestra en la imagen de la parte derecha de la hoja

 

[DanteAmor]

Puedo observar que los datos empiezan en 0 y van del 0 al 9, luego 1 y van del 0 al 9 y así hasta el 9.

Si tus datos están como en tu imagen, prueba lo siguiente:

Sub filtrar()
  Dim nRow%, n1%, n2%, n3%, n4%, r
  Application.ScreenUpdating = False
  
  n1 = Range("BB1").Value
  n2 = Range("BC1").Value
  n3 = Range("BD1").Value
  n4 = Range("BE1").Value
    
  nRow = (n1 * 2 * 10 + 2) + (n2 * 2)
  Range("A" & nRow).Resize(2, 8).Copy Range("BB5")
  
  nRow = (n2 * 2 * 10 + 2) + (n3 * 2)
  Range("I" & nRow).Resize(2, 8).Copy Range("BB7")
  
  nRow = (n3 * 2 * 10 + 2) + (n4 * 2)
  Range("Q" & nRow).Resize(2, 8).Copy Range("BB9")
  
  nRow = (n1 * 2 * 10 + 2) + (n4 * 2)
  Range("Y" & nRow).Resize(2, 8).Copy Range("BB11")
  
  nRow = (n1 * 2 * 10 + 2) + (n3 * 2)
  Range("AG" & nRow).Resize(2, 8).Copy Range("BB13")
  
  nRow = (n2 * 2 * 10 + 2) + (n4 * 2)
  Range("AO" & nRow).Resize(2, 8).Copy Range("BB15")
  
  For Each r In Array("BB5", "BB7", "BB9", "BB11", "BB13", "BB15")
    Range(r).Resize(2, 8).Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range(r).Resize(2, 8).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range(r).Resize(2, 8).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range(r).Resize(2, 8).Borders(xlEdgeRight).LineStyle = xlContinuous
  Next
  
  Application.ScreenUpdating = True
End Sub

 

[dragonfire33]

Hola Dante buenos días la hoja empieza desde la columna A

 

[DanteAmor]

Range("A" & nRow)

Probaste la macro?
La macro contempla desde la columna "A"

 

[dragonfire33]

Dante muchas gracias funciona

 

[dragonfire33]

Por favor me puede colaborar con la pregunta modificar código para resaltar tres celdas en línea horizontal o vertical gracias

 

[dragonfire33]

Ok

 

[dragonfire33]

Probaste la macro?
La macro contempla desde la columna "A"

Maestro Dante como podríamos agregarle al código que cada vez que se ejecute se peguen esos datos en la hoja 2(sólo el rango "bb1; bi17"