Formula or VBA for auto changing of qty based on a Value

[TPR]

Dear Friends,

Suppose I have a data like the attached file.

Total column is simple multiplication of Rate & Qty and Grand Total is normal SUM formula.

"FRUIT" is in A1 & "21246.83" is in D13. In G13 I have put the same figure of Grand Total i.e. 21246.83 manually.

What I need basically a formula in G column or VBA by which if I change the value of G13, Constant the rates (Column "C") the qty of all fruits will be changed automatically (highlighted yellow) on pro rata basis or percentage basis of total qty of fruits.

Thanks in advance.
Regards
TPR

 

[Chihiro]

Not sure the purpose.

But, something like below in G2 and copy down.
=$G$13*(D2/$D$13)/C2

 

[TPR]

Not sure the purpose.

But, something like below in G2 and copy down.
=$G$13*(D2/$D$13)/C2

Perfect. thanks
How would it be if I use
=B2*($G$13/$D$13)