Insert prefix based on cell value.

Hi all,

I have lists of numbers in column A. Based on the number in the cell, I would like to insert RO_ or RP_ before the number. I currently have two buttons for this, one named RO and the other RP and have simply recorded a macro of what I wish to do. However, instead of inserting RO_ or RP_ before the number the macro replaces the hole lot with "RP_10" or "RO_10" as this was the cell i recorded the macro on. How do I make it so it just inserts the Prefix rather than replace the contents of the cell.

Currently my code for one of the buttons is as follows;

Sub InsertRO()
'
' InsertRO Macro
' Makes type RO
'

'
    ActiveCell.FormulaR1C1 = "RO_10"
    Range("A14").Select
End Sub

Yes i am an absolute amatuer when it comes to Macros. Infact this is my first ever.

Thankyou in advance.

Regards,

Spicey_888

ActiveCell.Value = "RO_" & ActiveCell.Value

or

ActiveCell.Value = "RP_" & ActiveCell.Value