Loop based on cell value

Hi Guys

Looking to get the below to work better. Instead of looping as long as there is something in the cells to the left I would like to loop the amount of times based on the value in cell A1- can anyone point me in the right direction please?

i will have a many loops so would like this to be dynamic enough to work for each loop, the amount of times i need each to loop will not change

 Do
    ActiveCell.FormulaR1C1 = _
        "=""Interest""&"" ""&Postings!RC[5]&"" ""&""Broker""&"" ""&TEXT(Postings!R2C9,""DD/MM/YYYY"")"
    ActiveCell.Offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell.Offset(0, -1))