How do I change the formula

[azizrasul]

How do I change the formula so that if I delete the values from which the averages are based on, but want the average values to remain. I also want to alter the formula so that the averages are to 1 decimal place. Thanks in advance.

For x = 4 To 22
        Cells(9, x).Select
        ActiveCell.FormulaR1C1 = "=AVERAGE(R[1]C:R[" & z & "]C)"
    Next x

 

[VoG]

Try

For x = 4 To 22
    With Cells(9, x)
        .FormulaR1C1 = "=AVERAGE(R[1]C:R[" & Z & "]C)"
        .Value = .Value
    End With
Next x

 

[azizrasul]

Thanks Peter.