When I try to use this formula to write to cells it executes the first 2 but has a run time error on the 3rd. I tried using Formula instead of Array and it doesn't work either.
Sub Fill_Formulas()
Application.ScreenUpdating = False
Application.Calculation = xlCalculateManual
Range("Table7[Multi Horse]").Formula = "=COUNTIFS([Race Entered],[@[Race Entered]], [Rider],[@Rider])"
Range("Table7[Count for Pref]").Formula = "=MAX([Multi Horse])/[@[Multi Horse]]*(COUNTIFS(H$11:H11,H11,J$11:J11,J11))-1"
Range("Table7['# to make the draw]").FormulaArray = "=IF([@[Draw '#]]>0, [@[Draw '#]],IF(OR([@[Race Entered]]=EventtoDraw, EventtoDraw=""), MAX(IF([Race Entered]=[@[Race Entered]],[Draw '#]))+SUMPRODUCT(([Race Entered]=[@[Race Entered]])*(['# for Drawing]<[@['# for Drawing]]))+COUNTIFS(H$11:H11,H11, C$11:C11,C11), ""))"
Range("Table7['# for Drawing]").Formula = "=IF([@[Draw '#]]>0, "",IF([@[Draw Pref (0-10)]]>0, [@[Draw Pref (0-10)]],IF([@[Multi Horse]]>1,[@[Count for Pref]],RANDBETWEEN(0,1.5+MAX([Multi Horse])))))"
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub
Solved by K. J. in 13 mins