My macro skills are mediocre at best so can anyone help me simplify
this code? Any help would be appreciated. Thanks.

Private Sub OptionButton2_Click()
Application.ScreenUpdating = False
Sheets("READY MIX - LF").Select
Sheets("READY MIX - LF").Range("C13").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C14").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C15").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C16").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("C17").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!R23C3/100)))*(LF!
R17C3)/100"
Sheets("READY MIX - LF").Range("F13").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F14").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F15").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F16").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"
Sheets("READY MIX - LF").Range("F17").Select
ActiveCell.FormulaR1C1 = _
"='READY MIX'!RC+('READY MIX'!RC*(1-(LF!
R23C3/100)))*(LF!R17C3)/100"

End Sub