vb macros code to convert rows into columns one after other

Respected Sir/Madam,

In the attached excel sheet, I need, all the left side rows namely jan, feb, ...dec. of all the years to be appeared like right hand side columns. That is., rows has to be converted into columns one by one (which I have done manually for your kind reference) please write VB macros coding for this and help me…
Kindly find the attachment…
Like this I have to do for 100 files. Please help me I have to submit this very urgently...

Please oblige and do the needful…
Thanks & Regards,
Dharani.

This will turn Rows in one sheet into Columns on another

Sub test()
Dim lastr As Integer, lastc As Integer
Dim cell As Range
Dim RowsSheet As String
RowsSheet = ActiveSheet.Name
lastr = ActiveSheet.UsedRange.Rows.Count
lastc = ActiveSheet.UsedRange.Columns.Count

Sheets.Add(After:=Sheets(Sheets.Count)).Name = "columnsSheet"
Worksheets(RowsSheet).Activate
For Each cell In Worksheets(RowsSheet).Range(Cells(1, 1), Cells(lastr, lastc)).Cells
    Worksheets("ColumnsSheet").Cells(cell.Column, cell.Row) = cell
Next cell
Worksheets("ColumnsSheet").Activate
End Sub