Option Explicit
Private vCurr As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$F$2" Then
         Application.EnableEvents = False
         Target.Value = vCurr & " " & Target.Value
         Application.EnableEvents = True
         vCurr = Target.Value
     End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Address = "$F$2" Then
         vCurr = Target.Value
     End If
End Sub

If Target.Address = "$F$2" Then

If Target.column= 6 Then

if len(target.value)=0 then
    vcurr=0
    exit sub
end if

Option Explicit
' т.к. идет речь о конкатенации, то это строковая переменная
Private sCurr As String   ' переменная нужна для хранения значения ячейки ПЕРЕД изменением (запись осуществляется обеими процедурами)

Private Sub Worksheet_Change(ByVal Target As Range)   ' это событие происходит при изменениях в ячейках (непосредственно ПОСЛЕ), таргет - тот самый потерпевший
      If Target.Count > 1 Then Exit Sub   ' изменяется за раз ОДНА ячейка
        
      If Len(Target.Value) = 0 Then   ' эта строка означает, что после изменения ячейки длина ее содержимого стала равна 0, т.е. ее того... Delete
          sCurr = ""                  ' соответственно очищаем переменную
          Exit Sub
      End If

      If Target.Column = 6 Then
          sCurr = sCurr & " " & Target.Value  ' прицепляем НОВОЕ значение в ячейке к ТЕКУЩЕМУ
          Stop                    ' посмотри на ячейку, потом удали эту строку
          Application.EnableEvents = False    ' вырубаем события, ибо след. строка вызовет этот же обработчик (бесконечн. цикл)
          Target.Value = sCurr
          Application.EnableEvents = True
      End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  ' отслеживается хождение по ячейкам, попробуй закомментировать этот обработчик, посмотри, что выйдет
      If Target.Column = 6 Then
          sCurr = CStr(Target.Value)
      End If
End Sub