Find age difference between two dates

[kelly mort]

Column A is where I am tracking the last used row from.

Column D contains the given dates

Column BS will take the output data.

Now this is what I want to achieve :

I want to look at each cell in column D then if it is date, I find age difference with today's date then place that value into matching cell in column BS then move down till last used row.

 

[mole999]

would that not be ISNUMBER combined with TODAY() - Cell

 

[kelly mort]

would that not be ISNUMBER combined with TODAY() - Cell

Yeah with formulas I can do that.

But here I need a vba script