Convert formula to vba code

[chunu]

Hi,
Can some one help me to convert below formula to vba code.
=IFERROR(INDEX($B$3:$B$21,MATCH(MAX(INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)*(COUNTIF(E$2:E2,$B$3:$B$21)=0)+ROW($B$ 3:$B$21)/1000,)),INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)+ROW($B$3:$B$21)/1000,),0)),"-")

Thanks

 

[Johnny C]

Try the evaluate function ...

    Evaluate("=IFERROR(INDEX($B$3:$B$21,MATCH(MAX(INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)*(COUNTIF(E$2:E2,$B$3:$B$21)=0)+ROW($B$ 3:$B$21)/1000,)),INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)+ROW($B$3:$B$21)/1000,),0)),"-")")

 

[chunu]

Try the evaluate function ...

    Evaluate("=IFERROR(INDEX($B$3:$B$21,MATCH(MAX(INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)*(COUNTIF(E$2:E2,$B$3:$B$21)=0)+ROW($B$ 3:$B$21)/1000,)),INDEX(SUMIF($B$3:$B$21,$B$3:$B$21,$C$3:$C$21)+ROW($B$3:$B$21)/1000,),0)),"-")")

hi,
i have tried this code but not working, not getting any result.