You cluld improve the efficiency by changing
This
STLT = DLookup("[sumOfTemperatureTimesLogOfTime]", "queTeArrheniusPlot2", "[Report_number] = " & Report_number)
SLT = DLookup("[sumOfLogOfTime]", "queTeArrheniusPlot2", "[Report_number] = " & Report_number)
ST =...