Selecting only Active cells within a macro

Trying this question a different way.....

Considering the following code as a macro, what code can I add (or delete, or change) to run the formulas only on active cells instead of filling the entire column with the formulas. I will be using this macro separately on multiple worksheets of varying length.

Please Login or Register  to view this content.

Thanks!!!