Desplazarse una fila sin caer en celdas ocultas

[Persal95]

Hola, estoy trabajando en una macro que me filtre una tabla y que la pegue en otro libro, todo funciona correctamente salvo una parte.

A la tabla que deseo copia le pongo la opción de un autofiltro para que me seleccione solo una semana en particular, y tengo una validación para ello:

 

Sheets("DataIns").Select
 Worksheets("DataIns").AutoFilterMode = False
 Range("A1").Select
Selection.AutoFilter Field:=7, Criteria1:=wk
 Range("G1").Select
 ActiveCell.Offset(1, 0).Select
comproWeek = ActiveCell.Value

  If comproWeek = wk Then
 Range("B1").Select
 ActiveCell.Offset(1, 0).Select
 Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
 Selection.Copy
                     
  Else

Copiar = "No"
  End If

 

Al utilizar el offset para comprobar si es la celda con la semana correcta queda dentro de las ocultas y por tanto no se copia.

Lo que necesito es que pueda desplazarse una fila y caer sobre el valor que corresponde para correr la condicional si debe copiarse o no...

 

 

[Persal95]

Solucionado. 

Comparto por si alguien más lo necesita... Marcado de rojo la línea de código que coloque para que busque la siguiente fila no oculta

 Sheets("DataIns").Select
                     Worksheets("DataIns").AutoFilterMode = False
                     Range("A1").Select
                     Selection.AutoFilter Field:=7, Criteria1:=wk
                     Range("G1").Select
                     Set buscar = Range("G:G").Find(wk, LookIn:=xlValues, lookat:=xlWhole)
                     If Not buscar Is Nothing Then
                     With ActiveSheet.AutoFilter
        Set Rng = .Range.Resize(.Range.Rows.Count - 1).Offset(1, 0)
        Rng.SpecialCells(xlCellTypeVisible).Cells(1, 7).Select
    End With
    
                     fila = ActiveCell.Row
                     comproWeek = ActiveCell.Value
                     
                     If comproWeek = wk Then
                     
                     Range("B" & fila).Select
                     Range(Selection, Selection.End(xlDown)).Select
                     Range(Selection, Selection.End(xlToRight)).Select
                     Selection.Copy
                     
                     Else
                     
                     Copiar = "No"
                     End If
                     
                     If Copiar <> "No" Then