Macro to add character to selected cell

Create a button that calls the following:

Sub addcharacter()

Dim cell As Range

For Each cell In Selection
    cell = cell.Value & "2"
    cell.Characters(Start:=Len(cell.Value), Length:=1).Font.Subscript = True
Next

End Sub

EDIT: Updated for your request for the subscript.