VBA Code Runtime Error

[soumen21]

I'm using the following formula in a cell
=IFERROR(INDEX($A$1:$A$33,AGGREGATE(15,6,(ROW($A$1:$A$33)/(($B$1:$B$33>=$I$1)*($B$1:$B$31<$J$1))),ROWS($A$1:$A2)-ROW($A$1))),"")
It works perfectly.

If i enter the same formula in my vba code, I get run time error. How to correct it. In vba code i wrote

Worksheets("Sheet2").Range("T10").Formula = "=IFERROR(INDEX.$A$1:$A$33,AGGREGATE(15,6,(ROW($A$1:$A$33)/(($B$1:$B$33>=$I$1)*($B$1:$B$31<$J$1))),ROWS($A$1:$A2)-ROW($A$1))),"")"

What more I have to add, modify?
Also what shall I do to run the same formula with increments throughout T10-T40



Regards

 

[Fluff]

How about

Worksheets("Sheet2").Range("T10:T40").Formula = "=IFERROR(INDEX($A$1:$A$33,AGGREGATE(15,6,(ROW($A$1:$A$33)/(($B$1:$B$33>=$I$1)*($B$1:$B$31<$J$1))),ROWS($A$1:$A2)-ROW($A$1))),"""")"

 

[njimack]

Try: Worksheets("Sheet2").Range("T10").Formula = "=IFERROR(INDEX.$A$1:$A$33,AGGREGATE(15,6,(ROW($A$1:$A$33)/(($B$1:$B$33>=$I$1)*($B$1:$B$31<$J$1))),ROWS($A$1:$A2)-ROW($A$1))),"""")"

 

[soumen21]

Thank you so much. It's working.

 

[Fluff]

Glad we could help & thanks for the feedback