Sub rasfas()
Const TARGET As String = "A2:G2"    ' A2:G2 = Исходный диапазон
Dim ar, a, i As Integer, counter As Integer
    ar = ActiveSheet.Range(TARGET)
    For Each a In ar    ' подсчет числа элементов
        If Right(a,  1 ) = ")" Then
            counter = counter + Val(Mid(a, InStr(a, "(") +  1 ))
        Else
            counter = counter +  1 
        End If
    Next a
ReDim numbers(counter -  1 ) As Long: counter =  0 
    For Each a In ar    ' формирование массива
        If Right(a,  1 ) = ")" Then
            For i =  1  To Val(Mid(a, InStr(a, "(") +  1 ))
                numbers(counter) = Val(a)
                counter = counter +  1 
            Next i
        Else
            numbers(counter) = a
            counter = counter +  1 
        End If
    Next a
'выводим числа в строку 5 - c проверкой на число столбцов
If counter <=  256  Then ActiveSheet.Range(Cells( 5 ,  1 ), Cells( 5 , counter)) = numbers
End Sub

Const TARGET As String = "A2:T2"