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

Hi all,

I'm using a macro that among other things, starting from the actual selected activecell, goes to the next empty visible row after apply a filter selection.

I was using this code

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

which worked fine, but the thing is that the database now is more much bigger than before (up to 1000 rows) and now it goes veeeeeeeeeeeeeeery slowly to look for the next empty visible row.

So, I know that in order to speed up this process, I should use something like this:

Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.SpecialCells(xlVisible)(1).Select
Loop

But this code doesn't work as expected. It doesn't respect the activecell and goes directly to A1 cell. So, do you know please a way to speed up to go to next empty visible row?


For better understanding: if my activecell is F12 and after apply the filter, the next empty visible row is in F520, I want the cursor to go to F520.


Thank you in advance for your help and I wish you all a nice Christmas holidays and happy and hopefully better year 2021!