Vb macro coding for transpose - complete coding?

I need vb macro coding for transpose of the columns into rows. For the completion of every Season, the AVG column has to be converted into row... please give me the complete coding.. I m also attaching the excel file for your easy understanding in which I worked out the output manually.
pls do help me.. I need it very urgently...

MY EXCEL FILE IS LIKE:
SEASON AVG
1969 1
1969 1
1969 1
1969 1
1969 1
1969 1
1969 1
1969 1
1969 0.97975
1969 0.872875
1969 0.831545455
1969 0.925555556
1969 1
1969 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1970 1
1971 1
1971 1
1971 1
1971 1
1971 1
1971 1
1971 1
1971 0.857
1971 0.515
1971 0.5192
1971 0.684555556
1971 0.972777778
1971 0.8864
1972 1
1972 1
1972 1
1972 1
1972 1
1972 0.9921
1972 0.844166667
1972 0.394142857
1972 0.35875
1972 0.987428571
1972 1
1972 1
1972 1

OUTPUT:
I need output to be in the form as follows:
1969 1 1 1 1 1 1 1 1 0.97975 0.872875 0.831545 0.925555556 1 1
1970 1 1 1 1 1 1 1 1 1 1 1 1 1 -
1971 1 1 1 1 1 1 1 0.857 0.515 0.5192 0.684556 0.972777778 0.8864 -
1972 1 1 1 1 1 0.9921 0.844167 0.394143 0.35875 0.987429 1 1 1 -

Try this - results in sheet2:

Sub x()

Dim oDic As Object, vOut(), vMax(), vIn(), i As Long, n As Long

vIn = Sheet1.Range("A4", Sheet1.Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value
ReDim vOut(1 To UBound(vIn, 1), 1 To UBound(vIn, 1))
ReDim vMax(1 To UBound(vIn, 1))

Set oDic = CreateObject("Scripting.Dictionary")

With oDic
    For i = 1 To UBound(vIn, 1)
        If Not .Exists(vIn(i, 1)) Then
            n = n + 1
            vOut(n, 1) = vIn(i, 1)
            vOut(n, 2) = vIn(i, 3)
            .Add vIn(i, 1), n
            vMax(.Item(vIn(i, 1))) = 3
        ElseIf .Exists(vIn(i, 1)) Then
            vOut(.Item(vIn(i, 1)), vMax(.Item(vIn(i, 1)))) = vIn(i, 3)
            vMax(.Item(vIn(i, 1))) = vMax(.Item(vIn(i, 1))) + 1
        End If
    Next i
End With

Sheet2.Range("A1").Resize(n, WorksheetFunction.Max(vMax)) = vOut

End Sub

Dear StephenR,
Thank you so much for your quick response... but the code is not working, it is showing sum error actually... error like runtime
error :429 and it is saying that activex component cannot create object. Please debug this error and send me the excel sheet.... please oblige and do the needful...tomorrow i need to submit this...pls do help me...

Thanks & Regards,
Dharani Suresh.

Duplicate post.

http://www.excelforum.com/excel-prog...te-coding.html

Thank you John Davis.

Dharani Suresh - why have you posted this twice on the same forum on the same day? You've had five people working on your problem and you have wasted my time.