Разбитие текста и заполнение таблицы - VBA

Формулировка задачи:

Привет всем! Помогите пожалуйста с макросом. Нужно преобразовать таблицу в формат подходящий для дальнейшего анализа. На листе Data её исходный вид. Хочется получить её в виде как на листе Res_1. Собственными силами получилось только текст разбить. Спасибо!

Решение задачи: «Разбитие текста и заполнение таблицы - VBA»

textual
                            Листинг программы 
                        

                            For i = 2 To ActiveWorkbook.ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
   S = Split(Cells(i, 5))
    Select Case S(0)
       Case "Region"
            Cells(i, 1) = S(1): Cells(i, 2) = S(2)
       Case "Firma"
            Cells(i, 1) = Cells(i - 1, 1): Cells(i, 2) = Cells(i - 1, 2)
            Cells(i, 3) = S(1): Cells(i, 4) = S(2)
       Case Else
            Cells(i, 1) = Cells(i - 1, 1): Cells(i, 2) = Cells(i - 1, 2)
            Cells(i, 3) = Cells(i - 1, 3): Cells(i, 4) = Cells(i - 1, 4)
     End Select
Next
                        