Having problems getting an array formula to work and can't work out why. Can anyone help?

#With ThisWorkbook.Sheets("Sheet1").Range
Range.("H2").FormulaArray = "=INDEX($G$2:$G$10,MATCH(1,(A2=$E$2:$D$10)*(B2=$C$2:$E$10),0))"
Range.(H2:H10").Select
Selection.FillDown
Range.(H2:H10").Value = Range.(H2:H10").Value2
end with#

I keep asking but don't get a response, how do I put the code in the right format?