Transpose data macro

Hi there,
not sure how urgent your request is, but here is a way to do it with formulas.
I start by creating a flag to bring all the "Unique values in". Filter and paste them.
The rest is just offset formulas to bring all the entries underneath it in.
Hope this helps.

Try this:-
The code assumes that there are Blank rows between each set of data in column "A".

Sub MG11Dec07
Dim Rng As Range, Dn As Range, c As Long, Ac As Long, R As Range, t
Set Rng = ActiveSheet.Range("A:A").SpecialCells(xlCellTypeConstants)
    ReDim ray(1 To Rng.Count, 1 To 1)
        For Each Dn In Rng.Areas
            c = c + 1: Ac = 0
            For Each R In Dn
                Ac = Ac + 1
                If UBound(ray, 2) < Ac Then ReDim Preserve ray(1 To Rng.Count, 1 To Ac)
                    ray(c, Ac) = R.Value
            Next R
    Next Dn

With Range("C1").Resize(c, UBound(ray, 2))
    .Value = ray
    .Columns.AutoFit
    .Borders.Weight = 2
End With
End Sub

Regards Mick