I have been trying to assign a value to x derived from the counta function.

I have tried:
dim x as integer
x = Application.CountA("A:A")
Range("b2").Value = x

but it seems to perpetually report the value of 1.

Appreciate any help.