Find & select 1st blank cell in a range of formulated column cells

Hello all,
I tried using the following VBA to have the first blank cell within the E9:E48 range be selected whenever the worksheet is activated.

Private Sub Worksheet_Activate() 
    Range("E8").End(xlDown).Offset(1, 0).Select 
End Sub

The problem? It selects the E49 cell because the E9:E48 column cells have formulas in them. If I have a value in cell E12, for example, what VBA code will be needed to have the E13 cell be selected?

Thanks for your support or even considering the help on this issue!
JN

Hi

You might need to do something like the below:

Range("E8").Select
    Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1).Select

I'm not sure - but hopefully should work. I tried to replicate the problem in Excel, but with no luck - when I tried it, it selected the next blank cell. If this doesnt work you could try something like:

Range("E1048576").Select
Selection.End(xlUp).Select ' Repeat a few times to ensure it gets to to the top
Selection.End(xlDown).Select
ActiveCell.Offset(1).Select

I think this should work. I tried it on a sample and it selects the first cell with a blank value even if there is a formula in that cell.

Private Sub Worksheet_Activate()
For Each cell In Range("e9:e48")
    If cell.Value = "" Then
        cell.Select
        Exit Sub
    Else
    End If
Next
End Sub

djdjdj
That works perfectly! I did try using this code on formulated cells and it works just as well. A double treat!
The code selects the first blank cell so fast that it went unnoticed... even on an old slow machine. I like that it does not have to search in so many places before it lands where it supposed to land.

Thanks so much

No worries!