Te mando mi solución con esta macro-evento que tienes que copiar en el objeto hoja que estás tratando (no en un módulo)
En este ejemplo lo he programado para que funcione cada vez que hagas click en la celda A1 de la hoja en cuestión.
Public k
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If k = 0 Then GoTo salto
If Target.Address = "$A$1" Then
tope = Len(Target.Value)
For x = 1 To tope
extrae = Mid(Target.Value, x, 1)
If extrae = " " Then Exit For
If IsNumeric(extra) Then
lista = lista & extrae
End If
Next
Target.Value = lista + k & " click"
End If
Exit Sub
salto:
k = 1
Target.Value = k & " click"
End Sub
no olvides finalizar la consulta