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

Is that what you are after?

Charles
smandula wrote:
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