Rows to Column's with a twist

Hi all,

I have searched for 2 days (not 48 hours but on and off for 2 days), for the answer to this one without success.

I have an excel sheet with the following two columns of data

A B
Product Size
K19022 104CM
K19022 106CM
K19022 108CM
K19022 110CM
K19022 112CM
K19025 86CM
K19025 88CM
K19025 90CM
K19025 92CM
K19025 94CM


I need it to look like this instead

A B C D E F
Product Sizes
K19022 104CM 106CM 108CM 110CM 112CM
K19025 86CM 88CM 90CM 92CM 94CM


I have 42000 rows of info like that so could do with some help as the standard transpose will take me a long time to complete.

Not all products have 5 sizes, some have 20, some have 1.

Can anyone help?

Many thanks in advance.

OKanem

Try this:-
NB:- "BackUp" your data this code will delete the duplicates

Sub MG01Oct19
Dim Rng As Range, Dn As Range
Dim Q
Dim t
Dim nRng As Range
t = Timer
Set Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
    With CreateObject("scripting.dictionary")
        .CompareMode = vbTextCompare
For Each Dn In Rng
    If Not .Exists(Dn.Value) Then
        .Add Dn.Value, Array(Dn, 1)
    Else
        Q = .Item(Dn.Value)
            Q(1) = Q(1) + 1
            Q(0).Offset(, Q(1)) = Dn.Offset(, 1).Value
        .Item(Dn.Value) = Q
            If nRng Is Nothing Then
                Set nRng = Dn
            Else
                Set nRng = Union(nRng, Dn)
            End If

    End If
Next
        If Not nRng Is Nothing Then nRng.EntireRow.Delete
End With
MsgBox Timer - t
End Sub

Regards Mick

Is solution using vba programmng is acceptable???

MickG, that did the trick. thanks for the help.

You're welcome
Regrds Mick