VBA Multiple Criteria Index Match

Hi. I am trying to do an index match with multiple criteria and it keeps on returning a 'False' value. I am also not sure if it is adjusting the indexmatch lookup values for each row. Thanks!

Sub Check()
Set ws1 = ActiveWorkbook.Sheets("SprocketPartData")
Sheets("SprocketPartData").Activate
Set ra = ws1.Range(Cells(2, 4), Cells(65536, 4).End(xlUp))
Dim c As Range
Dim d As Range
    For Each c In ra.Offset(0, 4)
        Set d = ws1.Cells(c.Row, 4)
        If d.Value <> Empty Or d.Value = 0 Then
            c.Value = FormulaArray = "=INDEX('C:\[Parts.xlsm]Parts'!$H$3:$H$36000,MATCH(D2,IF('C:\[Parts.xlsm]Parts'!$E$3:$E$36000=E2,'C:\[Parts.xlsm]Parts'!$D$3:$D$36000),0))"
        Else
            c.Value = "N/A"
        End If
        Next c
End Sub

oh and I recorded the array function and it still did not work in vba