Starting from the actual activecell, go to the next empty visible row

OK, in order to go up, I just did it my way and it works :D

On Error Resume Next
ActiveCell.Offset(0, 0).Select
ActiveCell.Offset(-1, 0).Select
If ActiveCell.EntireRow.Hidden = True Then ActiveCell.End(xlUp).Select
If ActiveCell.EntireRow.Hidden = False Then ActiveCell.Offset(0, 0).Select
If ActiveCell.Row <= 5 Then ActiveCell.Offset(1, 0).Select
Do Until ActiveCell.EntireRow.Hidden = False
Loop

Thanks you all!