Range("E7:E5000").formula="=IFERROR(INDEX(Instruments!$C$3:$C$40,MATCH(B7,Instruments!$B$3:$B$40,0)),0)"
Private Sub Worksheet_Deactivate()
ThisWorkbook.Sheets("Patch By Universe").Application.Calculation = xlManual
Range("E7:E5000").Formula = "=IFERROR(INDEX(Instruments!$C$3:$C$40,MATCH(B7,Instruments!$B$3:$B$40,0)),0)"
Range("F7:F5000").Formula = "=IF(E7=120,D7/120,IF(E7=208,D7/208,""))"
ThisWorkbook.Sheets("Instruments").Calculate
End Sub
Range("E7:E5000").FormulaR1C1= "=IFERROR(VLOOKUP(RC[-3], Instruments!R3C2:R40C3, 2, False), 0)"