=ПРОСМОТР(--ЛЕВБ(ПРАВБ(СЖПРОБЕЛЫ(C3);7);4);S$2:S$21;T$2:T$21)

=ПРОСМОТР(--ЛЕВБ(ПРАВБ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(C3;",";" "));7);4);S$2:S$21;T$2:T$21)

=ПРОСМОТР(--ЛЕВБ(ПРАВБ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(C3;",";" "));7);5);S$2:S$21;T$2:T$21)

=ВПР(АГРЕГАТ(14;6;--ПСТР(C3;ДЛСТР(C3)-СТРОКА($1:$99);4);1);$S$2:$T$21;2)

Public Function Space(str1 As String) As String
Dim regEx As Object, arrStr
Dim str2 As String

str1 = Application.Trim(str1)
str2 = Right(str1, 10)

Set regEx = CreateObject("VBScript.RegExp")
With regEx
.Global = True 'Нужны все совпадения
.IgnoreCase = True 'Регистр неважен
.Pattern = "(\d+)" 'Регулярка
Space = str1
If .test(str2) Then
Set arrStr = .Execute(str2)
If arrStr.Count = 2 Then
Space = Left(str1, InStr(str1, arrStr(0).Value) - 1) & arrStr(0).Value & " " & arrStr(1).Value
Else
If Not (Len(arrStr(0)) = 6 Or Len(arrStr(0)) = 5) Then MsgBox "Длина числа не соответствует формату", 48, "Неправильный формат числа"
Space = Left(str1, InStr(str1, arrStr(0).Value) - 1) & Left(arrStr(0).Value, 4) & " " & Right(arrStr(0).Value, Len(arrStr(0).Value) - 4)
End If
End If

End With

End Function

=ВПР(--ПСТР(C3;ПРОСМОТР(;-1/(ДЛСТР(--ПСТР(C3;СТРОКА($1:$99);4))=4);СТРОКА($1:$99));4);S$2:T$21;2)

(;-1/    и     ($1:$99)