Acessar a 1ª celula vazia de uma coluna

Como ir para a primeira celula sem dados de uma referia coluna.
A exemplo do excel:

Sub VaiVazia()
Dim i As Integer
i = 1
Do While Range(“H” & i).Value <> “”
i = i + 1
Loop
Range(“H” & i).Select
End Sub

feito pelo gravador de macro:

sub PriVazia
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$Planilha1.$H$1" '<=== ACERTAR ENDERECO ==<<
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoUpToStartOfData", "", 0, args2())
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
end sub

A indica no post faltou a declaração no inicio no Modulo informando a necessidade do Suporte a VBA

REM  *****  BASIC  *****
Option VBASupport 1 '<= Obrigatório declarar esta informação no inicio do Modulo


Sub EncontrarPrimeiraVazia
	Dim I As Integer
		I = 1
	Do While Range("B" & I).Value<>""   '<=== ACERTAR COLUNA, aqui esta B ==<<
		I = I + 1
	Loop
	Range("B"& I).Select    '<=== ACERTAR COLUNA, aqui esta B ==<<
End Sub

Obrigado Gilberto pela colaboração. Ficou perfeito.

Oi @muca, dei uma alterada na Macro, havia chance de um possível erro, se a coluna em questão só houvesse a 1a. célula preenchida. Considerei que a coluna esta com preenchimento continuo, sem vazios ou branco no meio da coluna.