Помогите пожалуйста. Есть 5 столбцов, Бренд, Модель, код, цена 1, цена 2, все эти столбцы повторяются слева направо, нужно свести все эти данные в одну таблицу из этих 5 столбцов.
Sub djmers()
Dim lngI As Long
For lngI = 6 To Cells(1, Columns.Count).End(xlToLeft).Column Step 5
Range(Cells(2, lngI), Cells(Cells(Rows.Count, lngI).End(xlUp).Row, lngI + 4)).Copy _
Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Next lngI
End Sub