Convert formulas to values

Is there a more efficient way of doing this? "LamRate" is in cell A1 and the other ranges are immediately below.

'Convert formulas to values
    Range("Lamrate").Value = Range("LamRate").Value
    Range("Toughrate").Value = Range("ToughRate").Value
    Range("BGrate").Value = Range("BGRate").Value
    Range("Filmrate").Value = Range("FilmRate").Value

Thanks in advance