Next Non-blank cell in a Range

I am trying to get the next non blank cell of a column

I would like to find a way to do it with something already existent (without a custom loop).

For example, I searched around the Find function :

item = Worksheets(ws).Columns(1).Find(what:= something , after:= previousitem)

But here i would need a what:= parameters wich mean non blank