With Sheets("CLA")
    With .Range("C5:C9")
        .Value = .Value
    End With
End With

Regards, TMS