Я хочу организовать таблицу данных в столбцы с VBA

Question

У меня есть длинный список продуктов в Excel в сочетании с категорией продукта. Я хочу переставить это в столбцы - имя столбца должно быть категорией продукта, и под каждой категорией я хочу написать все продукты. Я борюсь со второй частью, чтобы заказать продукты по категориям. Знаете ли вы быстрый способ сделать это с VBA? Я прилагаю картинку о текущей настройке и своем коде.

Спасибо за идеи!

`Sub Ordering ()

Dim Row As Integer, Line As Integer, Product As String, Category As String, Column As Integer

Row = 2
Line = 2

Product = Cells(Row, 1).Value
Category = Cells(Row, 3).Value
Column = Cells(Row, 4).Value

Do While Product <> ""
    Do
        If Cells(Line, Column) = "" Then
                Cells(Line, Column) = Product
                Exit Do
            Else: Line = Line + 1
            End If
    Loop While Cells(Line, Column) <> ""

    Row = Row + 1
    Line = 1
    Product = Cells(Row, 1).Value
    Category = Cells(Row, 3).Value
    Column = Cells(Row, 4).Value
 Loop

MsgBox" Группировка прошла успешно! " End Sub `