Changing a macro to use a loop

Hi, I'm using a macro to drag down a formula across a worksheet then again further down the worksheet which is working ok but I know there has to be a better way of doing it. At the moment everytime I add a new collumn I have to edit the macro over and over and its getting out of hand. I know there must be a way of rewiting the macro into a loop but my skills are obviously still new. If anyone could help I would appereciate it.

Here's the macro: Sorry I can't remeber how I'm supposed to post VBA - I hope this is right.

' first group
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B28"), Type:=xlFillDefault
    Range("B2:B28").Select
    Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C28"), Type:=xlFillDefault
    Range("C2:C28").Select

This continues over to column AO so far then I drop down a few rows and do it again:

' second group
    Range("B29").Select
    Selection.AutoFill Destination:=Range("B29:B92"), Type:=xlFillDefault
    Range("B29:B92").Select
    Range("C29").Select
    Selection.AutoFill Destination:=Range("C29:C92"), Type:=xlFillDefault
    Range("C29:C92").Select

I think I need to set variables that set the row and column each time. maybe a "drag formula one column at a time from row x to row y until column header is empty then move to the new row and repeat"?

You don't need to do each column individually, you can replace the first block of code with:

Range("B2:AO2").Autofill Range("B2:AO28")

and the second block of code with:

Range("B29:AO29").Autofill Range("B29:AO92")

I don't see a pattern in the rows in order to create a loop.

Thanks Regulduy, I didn't realise it was that simple! I don't need a loop now. Brilliant.

Hi - you need:

' run1
Range("B2:Ap2").AutoFill Range("B2:Ap28")

' run2
Range("B29:Ap29").AutoFill Range("B29:Ap92")

' run3
Range("b93:ap93").AutoFill Range("b93:ap110")
  
' run4
Range("B111:Ap111").AutoFill Range("B111:Ap130")