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

Hi AlphaFrog!

It worked perfectly! Thank you so much!

Now I'm curious... how exactly works the part of "xlValues, , , 1)"? what is the meaning of each comma and the number?

I'm asking because I have a keypad in this Excel, and when pressing the arrow "up" runs this code:

ActiveCell.Offset(-1, 0).Select
Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.Offset(-1, 0).Select
Loop

So, is there a way to use the same code you sent me, but instead of going to the next down cell, going to the upper next cell?

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!