to do it using a worksheet function try this:

=COUNTIF(A4:A100,">""")