Find next blank celll

[jtodd]

Hi
I have the following code to open the workbook and next empty cell .

Private Sub Workbook_Open()
Dim ws As Worksheet
    Set ws = ActiveWorkbook.Sheets("2019_20")
    ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 1).Select
End Sub

The problem is that the cells are formated and have data validtion which exel sees as not blank even thought there is no data.
Is there a way round this ie to sellec the nex cell that has no data in?

 

[MARK858]

Do you get the correct row with the below?

Msgbox ws.Columns(1).Find("*", , xlValues, , xlByRows, xlPrevious).Row