'	In this example it will check all rows in column C. 
'	The range is set to be from row 1 to the last row 
'	in column YourCol.

'	YourCol should be different than the column you want to 
'	count (C in this case). We would recommend that YourCol 
'	be set to one with the most rows in it.

Dim Max As Integer
Dim NonBlank As Integer
Dim MyRange As Range

Max = ThisWorkbook.Sheets("YourSheet").Cells(Rows.Count, YourCol).End(xlUp).Row
Set MyRange = ThisWorkbook.Sheets("YourSheet").Range("C1:C" & Max)
NonBlank = WorksheetFunction.CountA(MyRange)
Set MyRange = Nothing