VBA：如何将formulaS拖到最后使用的行？

Good day, please help me. The scenario is like this, I have 7 different formulas assigned to 7 different top rows after the header. What I want to achieved is to drag this formulas down to the last used rows simultaneously. I successfully wrote a code on doing this but it is a static code, I want to do it in a dynamical way because every month the amount of data is different so my static code is not reliable. Good day, please help me. The scenario is like