Please try this
[code]
=countif(P4:P1800,"<>")
[code]
or if you only want to count cells with data other then blank
=counta(P4:P1800)