count filled cells

[smandula]

Is there a vba macro, that count's filled cells in a column
down to the last cell, from any active cell in the given column.
Using one column at a time.
Then, reports the result as a box message.

With Thanks

 

[Die_Another_Day]

Sub UsedCellsFromHereToEnd()
MsgBox Application.CountIf(Range(ActiveCell,Cells _
(Rows.Count,ActiveCell.Column).End(xlUp)),"<>""")
End Sub

Is that what you are after?

 

[smandula]

Thanks,

That's what I need