Average Formula with looping in multiple Range

[JODomingos]

Hi Friends!

I need to fill an average formula in dynamic range in multiple cells, in addition I would like to autofill right the formula until the last column filled.
Each yellow cell should be filled with average considering the range above, and autofill right for multiples cells. Can I Have a macro for that?

 

[Fluff]

Are the values in col C hard values or formulae?

 

[JODomingos]

Just the yellow cells have formula

 

[Fluff]

In that case, how about

Sub JODomingos()
   Dim Rng As Range
   Dim Clmns As Long
   
   Clmns = Cells(1, Columns.Count).End(xlToLeft).Column - 2
   For Each Rng In Range("C2", Range("C" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
      Rng.Offset(Rng.Count).Resize(1, Clmns).Formula = "=average(" & Rng.Address(1, 0) & ")"
   Next Rng
End Sub

 

[JODomingos]

It worked perfectly. I reaaly appreciate your help. Thanks Fluff

 

[Fluff]

You're welcome & thanks for the feedback.