Hi

Run this little thing:

Sub Transp()
Dim L As Long, i As Long, R As Long
R = 2
For L = 9 To 8329 Step 6
For i = 0 To 4
Cells(R, 7 + i).Value = Cells(L + i, 3).Value
Next
R = R + 1
Next
End Sub

HTH. Best wishes Harald

"Darius" skrev i melding
...
I am not a programmer, but can anybody help me on this:

I have data in one worksheet, in:
C9-c13
C15-C19
C21-C25
C27-C31
.
.
C8319-C8323
C8325-C8329

Now I want to run a piece of code which transpose these data as put data
like this:
G2-K2
G3-K3
G4-K4
.
.
Can anybody please help.