Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации) - VBA

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

Уважаемые знатоки Excel, помогите пожалуйста написать функцию для решения такой задачки Есть исходная табличка такого вида: ---------------------------------------------------- Samsung микрофон цена недорого Nokia экран купить дешево Sony динамик замена батарея ремонт восстановление ---------------------------------------------------- Суть вопроса - нужно СЦЕПИТЬ каждое значение столбца А + с каждой ячейкой столбца B + с каждой ячейкой столбца С + с каждой ячейкой столбца D. Т.е. нужно получить все возможные комбинации сочетания этих слов - такого вида: Samsung микрофон цена недорого Samsung микрофон цена дешево Samsung микрофон купить недорого Samsung микрофон купить дешево Samsung микрофон заменанедорого … … … … Sony батарея восстановление дешево

Решение задачи: «Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
 
Sub tt()
    Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range, r5 As Range, i&
    
    Application.ScreenUpdating = False
    For Each r1 In Range([a3], [a3].End(xlDown)).Cells
        For Each r2 In Range([b3], [b3].End(xlDown)).Cells
            For Each r3 In Range([c3], [c3].End(xlDown)).Cells
                For Each r4 In Range([d3], [d3].End(xlDown)).Cells
                    For Each r5 In Range([e3], [e3].End(xlDown)).Cells
                        i = i + 1
                        Cells(i, 7).Resize(, 5) = Array(r1, r2, r3, r4, r5)
                    Next
                Next
            Next
        Next
    Next
    Application.ScreenUpdating = True
End Sub