Application.Calculation = xlManual
For i = 10 To [b1].End(4).Row
Cells(i, 10) = "=average(r[-9]c[-8]:rc[-8])"
Next
Application.Calculation = xlAutomatic
wb.Close 1
Application.Calculation = xlManual
For i = 10 To [b1].End(4).Row
Cells(i, 10) = "=average(r[-9]c[-8]:rc[-8])"
Next
Application.Calculation = xlAutomatic
wb.Close 1