In each column autofill certain number of functions to reduce calculation

[Aquinax]

Hello,

to illustrate the question:

In columns AA, BB, CC, etc. there are to be inserted only a given number of functions, which are specified in the small table on the right. This in order to reduce the overall amount of calculation as the actual table is rather large. Thank you!

 

[Aquinax]

The question is solved. All credits to Kaper from excelforum.com

<code>Sub test2()
Dim i As Long, cell As Range
Application.ScreenUpdating = False
For i = 7 To Cells(1, Columns.Count).End(xlToLeft).Column 'headers in row 1, column G = 7
  Set cell = Columns(4).Find(what:=Cells(1, i), lookat:=xlWhole, LookIn:=xlValues) 'look into column D = 4, values from row 1
  If cell Is Nothing Then
    MsgBox "not found " & Cells(1, i) & " in column A"
  Else
    Cells(2, i).AutoFill Cells(2, i).Resize(cell.Offset(0, 1).Value, 1) 'formula is in row 2
  End If
Next i
End Sub</code>