Как соединять из двух столбцов - VBA

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

Здравствуйте. Есть субтитры с разными временами Нужен код, чтобы из столбца справа проставить время заменив их из столбца слева, результат вывести в отдельный столбик (для сравнения и дальнейшего редактирования) чтобы не трогать столбик слева, желательно готовое вынести отдельно дело в том, что время из двух столбцов не находятся в одном строке, поэтому для меня оказалось непосильной задачей. Буду рад помощи Файл пример прикрепляю

Решение задачи: «Как соединять из двух столбцов»

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

                            Sub Макрос1()
 
Dim E(100000) As String
 
rw = Range("E" & Rows.Count).End(xlUp).Row
 
j = 1
For i = 1 To rw
If InStr(Range("E" & i), "-->") > 0 Then E(j) = Range("E" & i): j = j + 1
Next i
 
rw = Range("A" & Rows.Count).End(xlUp).Row
 
j = 1
For i = 1 To rw
If InStr(Range("A" & i), "-->") > 0 Then Range("A" & i) = E(j): j = j + 1
Next i
 
End Sub
                        