Simple fill down, flatten and loop through all columns - THANKS!

[virsilens]

I would like to create a macro which will:

Take the formula in G2 and fill down,as far as there are data rows exists. (actual data has 100K row)

THEN convert the cells that was just filled (only G3 and below) into a static value (copy/paste value).

THEN loop the same macro to all the columns to thr right, one column at a time, all the way to column AZ.

File attached.

Thank you

[Fluff13]

How about

Sub FillFormula()

   With Range("G2:AZ" & Range("A" & Rows.Count).End(xlUp).Row)
      .FillDown
      .Offset(1).Value = .Offset(1).Value
   End With
End Sub

[virsilens]

Even better!!!!!! Thank you

[virsilens]

Good shot at it Fluff13. It works!

[Fluff13]

Ok, how about

Sub FillFormula()
   Dim UsdCols As Long
   Dim UsdRws As Long
   Dim i As Long
   
   UsdCols = Cells(1, Columns.Count).End(xlToLeft).Column
   UsdRws = Range("A" & Rows.Count).End(xlUp).Row
   For i = 7 To UsdCols
      With Range(Cells(2, i), Cells(UsdRws, i))
         .FillDown
         .Offset(1).Value = .Offset(1).Value
      End With
   Next i
End Sub

[Fluff13]

Glad to help & thanks for the feedback