Repeat Macro Transpose

[joyousrob]

Hey guys , so I got this macro below but I want to introduce a loop or some way for it to repeat itself 13 times, i ave got a range that I coy and then paste transposed.

Any ideas ?

Sub Macro35()
'
' Macro35 Macro
'


'
Range("B18:F20").Select
Selection.Copy

Range("B64").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True

Range("B22:F24").Select
Application.CutCopyMode = False
Selection.Copy

Range("B71").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
End Sub

 

[joyousrob]

Ok Rick, Ill show you what Im working with hope it helps describe what I want to do,

THis is the table i have:

Company	Year	Sales	Xfactor	Yfactor
1	1	13	77	49
1	2	19	45	50
1	3	98	86	86
2	1	43	89	37
2	2	21	26	8
2	3	49	11	87
3	1	29	33	19
3	2	15	55	100
3	3	89	74	76
4	1	2	57	30
4	2	44	11	16
4	3	67	69	70
5	1	11	16	99
5	2	3	39	53
5	3	95	64	4
6	1	21	53	77
6	2	27	23	16
6	3	85	27	74
7	1	74	54	15
7	2	8	55	41
7	3	3	53	57
8	1	62	1	5
8	2	20	82	22
8	3	83	56	68
9	1	34	29	56
9	2	99	96	39
9	3	45	52	47
10	1	26	58	73
10	2	61	34	47
10	3	7	5	98
11	1	48	14	84
11	2	45	95	56
11	3	46	19	83

<tbody>
</tbody>

And I want it to do the next thing .... which is copy and paste transposing for every company ( you are right it is 11), so i would have 11 of these below

1	1	1
1	2	3
13	19	98
77	45	86
49	50	86
2	2	2
1	2	3
43	21	49
89	26	11
37	8	87

<tbody>
</tbody>

The text "company" is in cell B17 company number 1 is in B18 and there is a blank cell between the values for each company. so between company 1 and 2 a blank row between company 2 and 3 another blank row etc...

 

[Fluff]

(copied above is all the info on that macro i might be missing some formating on it ) but it only copied it once

Hiya
When you said this did you men that the macro only copied once, or that when you RAN the macro only range B18:F20 was copied?

 

[Rick Rothstein]

And I want it to do the next thing .... which is copy and paste transposing for every company ( you are right it is 11), so i would have 11 of these below

The text "company" is in cell B17 company number 1 is in B18 and there is a blank cell between the values for each company. so between company 1 and 2 a blank row between company 2 and 3 another blank row etc...

Given what you have posted, either modified code that Joe4 posted in Message #9 should work for you. Did they? Or are you still having trouble? If so, explain, in detail, what that trouble is.