VBA code to drag different formulas in a colum

Hi i need to drag my different formulas down a collum and i need to have it done by VBA code. My problem is that range 1,2 and 3 vary. But the formulas are always available at the beginning of a range as illustrated on the picture.

Thanks!

Capture.PNG