Excel - ¿Cómo añadir texto con 1 botón de formulario a una celda, sin borrar el contenido de esta celda?

Private Sub uno_Click()

   Hoja2.Range(ElRango).Value = Hoja2.Range(ElRango).Value & "-" & uno.Caption

   Unload calculadora

   ' este movia el cursor a la derecha tras pulsar 1 boton hasta acabar toda la fila de celdas con botón

   ' te mantiene el formulario abierto si activas esta línea

   ' Pueses usar otra tecla del teclado aquí para que la pulse tras picar el botón

   ' SendKeys "{TAB}"

'Esta linea oculta el formulario tras elegir uno de sus botones

   'Unload Me

End Sub

Private Sub uno_Click()

'Aqui va la validacion

 if Hoja2.Range(ElRango).Value  = ""   then  ' si es vacio solo le pongo el valor del numero

 Hoja2.Range(ElRango).Value = uno.Caption

else

' si tiene contenido lo concateno con el valor actual

 Hoja2.Range(ElRango).Value = Hoja2.Range(ElRango).Value & "-" & uno.Caption

   Unload calculadora

End Sub