I need to return the number of cells that contain values in a column.

I've played with Selection.EntireColumn Select & Selection.Columns.Count but these just return the number of columns I have selected versus the number of values in those columns.

I'm looking for the VBA code that does the spreadsheet formula "=counta(D:D)", which returns the number of values in the column "D". I don't need the values themselves, just an indication if there are any values in the first place.

Thanks,