Из ячейки извлечь подчеркнутую информацию и поместить ее в следующую ячейку

="LED "&Substring(Substring(A1;"LED";2;2);")";1;1)&")"
="LED "&Substring(Substring(A1;"LED";3;3);")";1;1)&")"

Function Substring(Текст As String, Символ_разделитель As String, _
                   Начальный_Номер_фрагмента As Long, Конечный_Номер_фрагмента As Long) As String
'---------------------------------------------------------------------------------------
' Purpose : Выделяет из текста субстринг/и, ориентируясь по символам-разделителям
' Notes : Substring(текст; символ_разделитель; Начальный_Номер_фрагмента, Конечный_Номер_фрагмента), где
' текст - текст, который делим
' символ_разделитель - символ, который надо считать разделителем фрагментов
' Начальный_Номер_фрагмента - порядковый номер фрагмента, с которого нужна выборка
' Конечный_Номер_фрагмента - порядковый номер фрагмента, по который нужна выборка
'---------------------------------------------------------------------------------------
    On Error Resume Next
    Dim sArr() As String, li As Long
    sArr = Split(Application.Trim(Текст), Символ_разделитель)
    If Конечный_Номер_фрагмента > 0 Then
        Начальный_Номер_фрагмента = Начальный_Номер_фрагмента - 1
        Конечный_Номер_фрагмента = Конечный_Номер_фрагмента - 1
        For li = Начальный_Номер_фрагмента To Конечный_Номер_фрагмента
            Substring = IIf(li = Начальный_Номер_фрагмента, sArr(li), Substring & _
                                                                      Символ_разделитель & sArr(li))
        Next li
    Else
        Substring = Split(Application.Trim(Текст), _
                          Символ_разделитель)(Начальный_Номер_фрагмента - 1)
    End If
End Function

Public Function GetRegExpFind(ByVal str As String, ByVal Pattern As String) As Object
    On Error Resume Next
 
    If Not Pattern Like "" Then
        Dim RegExp As Object
        Set RegExp = CreateObject("VBScript.RegExp")
        With RegExp
            .Global = True
            .Pattern = Pattern 'Выражение
        End With
        Set GetRegExpFind = RegExp.Execute(str)
        Set RegExp = Nothing
    End If
End Function
 
Sub Test()
    Dim matches As Object
    Dim match As Object
    Dim sPattern As String
    sPattern = "LED [a-zA-Z0-9 ]+\([а-яА-Я0-9. ]+\)"
        Set matches = GetRegExpFind(ThisWorkbook.ActiveSheet.Cells(1, 1), sPattern)
        If Not matches Is Nothing Then
            If Not matches.Count = 0 Then
                For Each match In matches
                    With match
                        MsgBox (.Value)
                    End With
                Next
            End If
        End If
    Set match = Nothing
    Set matches = Nothing
End Sub