@Patel, Sir, thx for pointing small mistake, but it wont affect much, as I need MAcro to auto fill in the formula in every 4th row, till there is data in adjacent cells.

Perhaps, Part 1 Formula can be changed to I4/I3, K4/K3, M4/M3, at respective places, and so on, instead of referring to Data row 1 and Row 2, i.e. I2/I1, K2/K1, and M2/M1.

Please help for Part 2 Conditions, and how to fill every 4th row in Column Q, and R through VBA Code, in R1C1 style!

Regards