VBA target as range

Hi guys, i can get this one sorted.

D2:D65563 whill change from blank to a figure subject to formula in C2:C6536 if so need input box to column to copy and paste formula to in the same row

Simple as that, i cant get the target range sorted

Myrange = range(@D2:D2@)
If Range(MyRange) <> 0 then else
input box
copy paste

is the sort of idea.

Any ideas guys

Cheers Jack in the UK