Обход столбца Excel объектом Range

[DataBase1]

Как можно с помощью объекта Range осуществить проход по нужному столбцу до тех пор пока не дойдём до пустой ячейки наподобие вот этого

Dim i As Integer
i = 1
Do While (Cells(i, 3) <> "")
i = i + 1
Loop

[IgorGO]

без обхода. медотодом End

FirstBlankCellRow = cells(1,3).end(xldown).row+1

[jillitil]

NextEmptyRow = Range("a1:a1000").End(xlDown).Row + 1