La ultima Fila Vacia en Excel

[DeCodigos]

Buenas! Alguien sabe como saber cual es la ultima celda vacia en una hoja excel?
el codigo que tengo para escribir es el siguiente:

Código:

Private Sub Command1_Click()
sPth = App.Path + "\horas.xls"
Set hojaexcel = CreateObject("Excel.Application")
Set exBook = hojaexcel.Workbooks.Open(sPth)

hojaexcel.Cells(1, 1) = "saraza"

hojaexcel.Visible = False

hojaexcel.ActiveWorkbook.Save

hojaexcel.Quit
Set hojaexcel = Nothing
End Sub

Pero yo quiero escribir en la ultima celda vacia.
MUCHAS GRACIAS COMPAS!