Code to copy formula down collumn

[bouncingbudha]

Hi

I need some VBA code to copy a simple formula down a column when the corresponding cell has a number in it
I don’t want to drag down the formula as it creates a flat line on my graph.
Formula is =D2+B3 and is relative
Please see attached sheet to see what I am trying to achieve

Thanks for you help

[protonLeah]

Non'VBA solution:
In D3:

=(D2+B3)*(B3<>"")

will show 0 if B3 is blank; however,

=IF(B3<>"",D2+B3,"")

will show blank if B3 is blank

Copied down as usual.