Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And Target.Count = 1 Then
p = InStr(Target.Offset(2, 0), Target.Value)
If p > 0 Then
Target.Offset(2, 0) = Left(Target.Offset(2, 0), p - 1) & _
Mid(Target.Offset(2, 0), p + Len(Target.Value) + 1)
Else
If Len(Target.Offset(2, 0)) = 0 Then
Target.Offset(2, 0) = Target.Value
Else
Target.Offset(2, 0) = Target.Offset(2, 0) & "+" & Target.Value
End If
End If
End If
End Sub