Помогите с макросом Excel, разделяющим 1 столбец на 3

[Vasily_VV]

Доброго времени суток, имеется сканер шрих-кодов который сканирует штрих-коды и заносит их в эксель в один столбик в виде:

Штрих1
Штрих2
Штрих3
Штрих4
Штрих5
Штрих6
.....

Фишка в том что вначале сканируется штрих товара, а потом 2 штриха координат (номер ячейки, этаж)

Необходимо разбить таблицу на 3 столбца, вида:

Штрих1 Штрих2 Штрих3
Штрих4 Штрих5 Штрих6
................................... ......

Помогите пожалуйста с макросом. строк может быть около 1000.
Заранее спасибо!

[Aleksandr H.]

Sub Makros1()
    Dim r As Integer, r2 As Integer
    r = 1: r2 = 1
    Do While Cells(r, 1) <> ""
        Cells(r2, 2) = Cells(r, 1)
        Cells(r2, 3) = Cells(r + 1, 1)
        Cells(r2, 4) = Cells(r + 2, 1)
        r = r + 3: r2 = r2 + 1
    Loop
End Sub

[IgorGO]

Sub GroupData3FromA2B()
  Dim r As Long
  For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
    Cells((r - 1) / 3 + 1, 2).Resize(1, 3).Value = WorksheetFunction.Transpose(Cells(r, 1).Resize(3, 1).Value)
  Next
End Sub

[Vasily_VV]

Сообщение от Aleksandr H.

Sub Makros1()
    Dim r As Integer, r2 As Integer
    r = 1: r2 = 1
    Do While Cells(r, 1) <> ""
        Cells(r2, 2) = Cells(r, 1)
        Cells(r2, 3) = Cells(r + 1, 1)
        Cells(r2, 4) = Cells(r + 2, 1)
        r = r + 3: r2 = r2 + 1
    Loop
End Sub

Спасибо огромное!!!! то что нужно!