Escrevi na correria porque tinha que bater ponto aqui no serviço. Se não conseguirem entender (por causa dos erros de escrita), observem o exemplo que a partir dele já dá para ter uma ideia. Caso contrário, digam aí que tento reformular o questionamento.

Abç

Experimente isto:

 

Again:

If ActiveCell.Offset(1, 0).Rows.Hidden = True Then
    
    ActiveCell.Offset(1, 0).Select
    GoTo Again
Else
    
    ActiveCell.Offset(1, 0).Select
    
End If
    

Obrigado pela resposta, mas essa rotina aí provocou um loop eterno na planilha. Não consegui adaptar!

Boa tarde Leandro,

Tente colocar o código do skulden em uma rotina de repetição.

Por exemplo:

Sub Exemplo()
    
    Dim i       As Double
    Dim Nlin    As Double
    
    Nlin = Range("A1048575").End(xlUp).Row
    
    Range("A1").Select
    
    For i = 1 To Nlin
        
        
        If ActiveCell.Offset(1, 0).Rows.Hidden = True Then
           
            ActiveCell.Offset(1, 0).Select
            
    
        Else
           '
            ActiveCell.Offset(1, 0).Select
           'Sai do For
            Exit For
            
        End If
    
    
    End If
    
End Sub

att,

Obrigado pela força bruno e skulden, deu certo agora!

Abração!