Wrong Output after first run

hi all,
i have attached a worksheet with a macro,that creates a sheet and sorts the data and enters in the newly created sheet

when the datas are entered in the sheet,i find that the values that has to be filled in the first row is filled in the 20th row skipping few rows.

i ran this macro lastweek, the output was fine but now i find its wrong.

somebody please gothrough my excel sheet and the macro and let me knoww why the output is not as desired.

thanks in advance