Find next non blank row

[Formula11]

How can you find the next non blank row after the active cell.

Tried this.

Sub test()
    Dim Row As Integer
    Dim non_blank_row As Integer
    
    Row = (ActiveCell.Row)
    non_blank_row = Row
    
    While WorksheetFunction.CountA(Row) = 0
        non_blank_row = non_blank_row + 1
    Wend
    
    MsgBox non_blank_row
End Sub

 

[Formula11]

Thanks again Akuini, I can confirm the above works.