можно написать макрос для такой задачи????

[dzaymko]

перенос несколько столбцов в один с описания бренда

пример внутри

[Hugo121]

Можно.
Довольно быстро отработает на массивах.
Вам хватит описать в общих чертах алгоритм?
Код нудный, поэтому его затак писать не буду. Не интересно, жалко времени.
А алгоритм могу описать - берёте исходные данные в массив, создаёте пустой под нужный размер исходя из размера исходного, затем циклом перекладываете данные в нужном (нудном... ) порядке.
Результат выгружаете на новый лист.

[dzaymko]

Сообщение от Hugo121

Можно.
Довольно быстро отработает на массивах.
Вам хватит описать в общих чертах алгоритм?

да хватит в общих чертах ! не нужно для всей таблицы ! для 2 -3 хватит дальше сам!

[Hugo121]

Хороший ответ!

Option Explicit

'алгоритм могу описать - берёте исходные данные в массив,
'создаёте пустой под нужный размер исходя из размера исходного,
'затем циклом перекладываете данные в нужном (нудном... ) порядке.
'Результат выгружаете на новый лист.

Sub perenos()
    Dim a(), i&, ii&
    a = Sheets("исходный").UsedRange.Value
    ReDim b(1 To (UBound(a) - 1) * 14, 1 To 5)
    ii = 1
    For i = 2 To UBound(a)
        
        b(ii, 1) = Mid(a(i, 1), 4)
        b(ii, 2) = a(i, 2)
        b(ii, 3) = Mid(a(i, 3), 4)
        b(ii, 4) = a(1, 3)
        b(ii, 5) = "Пружина ходовой части"
        b(ii + 1, 1) = b(ii, 1)
        b(ii + 1, 2) = b(ii, 2)
        b(ii + 1, 3) = a(i, 4)
        b(ii + 1, 4) = a(1, 4)
        b(ii + 1, 5) = "Пружина ходовой части"
        
         'и т.д. -  для 2х сделал, дальше сам! :)
         
        ii = ii + 14
    Next

    With Workbooks.Add(1).Sheets(1)
        .[A1:D1].Value = Split("FIT ПРИМЕНЕНИЕ OE OE")
        .[a2].Resize(ii, 5) = b
    End With
End Sub

Вообще вроде по размеру совпадает, а вот данные результата в Вашем примере как-то не так разложены.