Excel - Error en procedimiento

Hola tengo este procedimiento en una macro pero me sale error , estoy utilizando la funcion contara(cuando la utilizo de frente en la hoja de calculo no hay problema, pero dentro de este sub si vota error) por que quiero saber cuantas lines escritas hay en la columna c para segun eso hacer el proceso repetitivo. Como hago para solucionar este error.

Sub rellenar()
c = contara("c:c")---- AQUI SALE EL ERROR

For x = 0 To c
If ActiveCell.Value = "" Then
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
Else
ActiveCell.Offset(1, 0).Select
End If
Next

End Sub

Muchas funciones del Excel no funcionan en los códigos de VBA.

Podría hacerse un procedimiento sencillo para averiguar hasta qué número de fila hay qué procesar pero se necesitaría que en alguna columna haya continuidad de los datos para hacerlo. (Que todas las celdas de esa columna tengan algún valor.)

Se ve que la columna C tiene celdas vacías. Eso impide usarla para encontrar el número total de filas. ¿Hay alguna columna vecina que sea continua?

Hola

en vez de
c=contara("c:c")
utiliza lo siguiente

Dim rango As Range
Set rango = Range("c:c")
c = Application.WorksheetFunction.CountA(rango)

por lo general todas las funciones que utilizas en excel se pueden utilizar en VBA pero hay que utilizarlas con WorksheetFunction, cuando pones el punto te salen todas las funciones que puedes utilizar