Vb macro code for transposing the data

Dear Sir /Madam,
I need my data to get transposed in such a way that I gave the output model for you in the excel sheet which I attached for your easy understanding along with this thread request.

Please do help me and please do find the attachment..

Thanks & Regards,
Dharani.
SENEGAL_DATA.xls

Originally Posted by patel45

check please your data, there are some months missing. i-e 1990 dec
try this code

Sub Macro1()
LR = Cells(Rows.Count, "D").End(xlUp).Row
dcol = 42
For j = 2 To LR Step 12
  drow = 2
  Cells(1, dcol) = Cells(j, 3)
  For r = j To j + 11
    Range("D" & r & ":AI" & r).Copy
    Cells(drow, dcol).Select
   Stop
  dcol = dcol + 1
Next
End Sub

Dear Patel,
this is how your output looks.... but January is going at the end after 3 years. i need it on the top. (like in 1987,1988,1989) . and also it is showing error in the code at STOP. and for each and every year i have to click run run run run only then it is giving the output. i need like by one click it has to give the output for all the years. for your easy understanding I am attaching you the excel file by running your code.

pls do help me..
Awaiting for the positive response...

With Regards, SENEGAL_DATA(patel sir).xls
Dharani.