ultima fila de columna de excel

Buenas mi pregunta es que como puedo saber cual es la ultima celda que esta escrita en una columna de un documento excel

proba con esto

Dim ApExcel As Variant
dim fila

Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'ABRIR
ApExcel.Workbooks.Open ("ruta del archivo")

'Poner Titulos
fila=1
while(ApExcel.Sheets("nombre de la hoja").cells(fila,columna) <> "")

fila=fila+1

wend'revisa desde la fila 1 hasta la ultima fila escrita en numero de fila que te devuelve es el que le sigue a la ultima fila escrita
MsgBox "ultima fila escrita "fila-1

Set ApExcel = Nothing

proba con este codigo espero que sea lo que buscas

Dim ApExcel As Variant
Dim fila

Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'ABRIR
ApExcel.Workbooks.Open ("c:\libro11.xls")

'Poner Titulos
fila = 1
While (ApExcel.Sheets("hoja1").cells(fila, 1) <> "")

fila = fila + 1

Wend 'revisa desde la fila 1 hasta la ultima fila escrita en numero de fila que te devuelve es el que le sigue a la ultima fila escrita
MsgBox "ultima fila escrita" & fila - 1 'ultima fila escrita
MsgBox "ultima fila que sigue" & fila
Set ApExcel = Nothing