Contar en macro

Tienes 2 alternativas para hacerlo
1, por formula y podria ser de 2 formas  =contara(a1:a30) - solo se ejecuta en un rango de 30 filas  , o =contar.si(A:A;"<>")
Se actualiza permanentemente
2. Por macro
sub cuenta_no_vacias()
dim fila,cont as long
cont=0
for fila=1 to 100 ' 1000 seria el numero tentativo de filas ocupadas, entre mayor sea mas tiempo toma la macro,
if cells(fila,1).value="" then cont=cont +1
next fila
Range("b2").value=cont ' aqui definirias donde quieres colorar el resultado
Application. OnTime Now + TimeValue("00:15:00"), "cuenta_no_vacias" ejecuta la macro cada 15 minutos, lo cambiarias por el valor que requieras.
end sub
Esta macro la deberías de correr luego de abrir el archivo, ya el seguiría autoejecutandose hasta que lo cierres.
No conozco tu necesidad pero me oriento más por la fórmula