sequencing of rows.

sequence.png

i want the sequence in the below format in a new sheet

Roll NO. credit Code Marks credits Code Marks
UP0111 2 4009 72 2 4010 62 etc
UP0211 2 4009 77 2 4010 72 etc

in a single line.

can anyone help me in this regards

post a sample file...

i want the sequence in the below format in a new sheet

Roll NO. credit Code Marks credits Code Marks
UP0111 2 4009 72 2 4010 62 etc
UP0211 2 4009 77 2 4010 72 etc

in a single line.

can anyone help me in this regards

but the result is not like what i wanted. i want it in a single row for each student. ex. UP0111 is there for 8 times for different subjects. now want it in a single line only the code and the marks and the credit but not the rollno. or name. one row should contain the details related to the concern student. i hope i am clear this time.

Maybe:

Sub somu58()
Dim x As Long
Dim y As Long
Application.ScreenUpdating = False
y = 1
x = 2
Range("C2").Select
Do Until ActiveCell.Value = ""
Do Until ActiveCell.Value <> ActiveCell.Offset(1).Value
ActiveCell.Offset(, -1).Copy Sheets("Sheet2").Cells(x, y)
ActiveCell.Offset(, 4).Copy Sheets("Sheet2").Cells(x, y + 1)
ActiveCell.Offset(, 2).Copy Sheets("Sheet2").Cells(x, y + 2)
ActiveCell.Offset(, 1).Copy Sheets("Sheet2").Cells(x, y + 3)
y = y + 4
ActiveCell.Offset(1).Select
Loop
ActiveCell.Offset(1).Select
y = 1
x = x + 1
Loop
Application.ScreenUpdating = True
End Sub

Copies goes too Sheet2