I think you will not be able to use conditional  formatting because you are
limited, I think, to 3 options.

You could simplify your formula by
Putting the error limits in E65531 onwards
Then using


tablestart = range("D65530)
Selector = Range("b" & Target.Row).value
AimValue=Tablestart.offset(selector,0).value
Errorlimit=Tablestart.offset(selector,1).value

If Target.Row value < aimvalue - errorlimit or target.row >
aimvalue+errorlimit then
Range("d" & Target.Row).Font.ColorIndex = 3
Else
Range("d" & Target.Row).Font.ColorIndex = 1
End if