try:
Sub blah()
Set myRng = Sheets("Not on a Category").Cells(1).CurrentRegion.Columns(1).Offset(, 7)
With Intersect(myRng, myRng.Offset(1))
.FormulaR1C1 = "=IF(RC19=""Yes"",IF(RC23=""Open Box"",""Used"",IF(OR(RC23=""Defective / unspecified"",RC23=""damaged""),IF(OR(ISNUMBER(SEARCH({""COMPUTER-Notebooks"",""Cell Phones""},RC14))),""TT"",IF(ISBLANK(RC15),"""",IF(OR(ISNUMBER(SEARCH({""paper"",""toner"",""film""},RC14))),IFERROR(VLOOKUP(RC15-0.000000001,{-1,""LR"";20,""Tradeport""},2),""""),IFERROR(VLOOKUP(RC15-0.000000001,{-1,""LR"";20,""Tradeport"";50,""TL""},2),"""")))),"""")),"""")"
.Value = .Value 'if you delete or comment-out this line you'll be left with a formula in column H to examine and check.
End With
End Sub