Visual Basic para Aplicaciones - contar celdas

Hola, necesito que mediante codigo visual basic me cuente las celdas ocupadas (que contienen numeros en este caso) en la columna A de una hoja y me muestre un mensaje diciendo el numero de celdas ocupadas.

Gracias.

Yo tambien tengo el mismo problema me gustaria saber como saber cual es la ultima fila con datos y ultima columna con datos de una hoja de excel.

Yo lo que hago es un bucle desde la primera fila a la ultima, y cuando encuentro una en blanco, pues salir del bucle y devolver ese numero.
Para las columnas lo mismo.

For x = 1 to 65535
If Cells(x,1).Value = \"\" Then
MsgBox(\"Fila ultima: \" + CSTR(x))
Exit For
End If
Next

Algo asi por el estilo.

Tengo otra duda que pasa si entre las filas hay celdas en blanco?
O bien si quiero saber la ultima columna hay columnas en blanco?