How do i assign “ActiveCell.FormulaR1C1” to read a cell value instead typing it?

0


I am writing a code to display the properties of a Honda car when a macro button is pressed. However, i could only type fixed Strings like "Honda", "Motorized seats" etc. into the code which is not very flexible.

I wish to replace "Honda" with the cell value so when i change the value of cell in my worksheet, the code will read the updated cell value and process accordingly.

If HondaButton.Value = True Then
Range("B20").Select
ActiveCell.FormulaR1C1 = "Honda"
Range("C20").Select
ActiveCell.FormulaR1C1 = "100"
Range("D20").Select
ActiveCell.FormulaR1C1 = "Motorized seats"
Range("E20").Select
ActiveCell.FormulaR1C1 = "Red"
Range("E21").Select

Any help or suggestions to improve would be great. Thanks!