Macro To Transpose

[cfer]

Hi,

I have the following details.

I would likem to have a macro that can Transpose Each row from C5:O11

Starting at C14

After the first row is copied down, the next line needs to have a blank row to the start of the second row to be copied. All the rows need need to be copied down.
See atached HTML.

Thanks in advance Cfer

calteam3.xls
	C	D	E	F	G	H	I	J	K	L	M	N	O
5	RDO		0600-1415		0600-1415		0600-1415		0600-1415		RDO		RDO
6	RDO		1400-2215		1400-2215		1400-2215		RDO		0600-1415		0600-1800
7	0600-1600		0600-1430		RDO		RDO		1300-2230		1400-2230		RDO
8	RDO		2200-0600		2200-0600		2200-0600		2200-0600		#		RDO
9	RDO		RDO		0600-1415		0600-1415		0600-1415		0600-1415		0700-1900
10	RDO		1400-2230		1400-2230		1400-2230		RDO		2200-0600		2200-0600
11	2130-0630		#		RDO		0800-1500		1400-2130		1400-0000		RDO
12
13
14	RDO
15
16	0600-1415
17
18	0600-1415
19
20	0600-1415
21
22	0600-1415
23
24	RDO
25
26	RDO
27
28	RDO
29
30	1400-2215
31
32	1400-2215
33
34	1400-2215
35
36	RDO
37
38	0600-1415
39
40	0600-1800
41
42	0600-1600
43
44	0600-1430
45
46	RDO
47
48	RDO
49
50	1300-2230
51
52	1400-2230
53
54	RDO
55
56	RDO
57
58	2200-0600
59
60	2200-0600
Sheet1

 

[VoG]

Try

Sub XPose()
Dim i As Integer, j As Integer, k As Integer
k = 12
For i = 5 To 11
    For j = 3 To 15 Step 2
        k = k + 2
        Cells(k, 3).Value = Cells(i, j).Value
    Next j
Next i
End Sub

 

[cfer]

Hi,

Worked fine
Thanks

Cfer