Hi Don
Small typo, I think you meant this:
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step block
Regards
Cimjet

"Don Guillett" wrote in message
news:29919190.1039.1331901997170.JavaMail.geo-discussion-forums@ynmb12...
On Thursday, March 15, 2012 8:33:19 PM UTC-5, Zucco wrote:
Hey i need help transposing multiple sets of data to columns. I have a
couple hundred and don't want to do each by hand any suggestions?


Home Slice Pizza
1415 SOUTH CONGRESS AVE · Austin, Texas · 78704-2434
Pizza Restaurant
2,572 were here · 139 likes


Double Dave's Pizzaworks
Austin, Texas
Pizza Restaurant
1,118 were here · 53 likes


Brooklyn Heights
14900 Avery Ranch Blvd · Austin, Texas · 78717
Pizza Restaurant
2,270 were here · 228 likes · Open until 12:00 am.


California Pizza Kitchen
3401 Esperanza Xing Ste 100 · Austin, Texas · 78758-8705
Pizza Restaurant
1,253 were here · 67 likes


Red House Pizzeria
1917 Manor Road · Austin, Texas · 78722
Pizza Restaurant
1,136 were here · 91 likes


Hoeks Death Metal Pizza
511 E. 6th Street · Austin, Texas · 78701
Pizza Restaurant
1,525 were here · 3,948 likes · Open until 3:00 am.


Double Dave's Pizzaworks
3000 Duval St · Austin, Texas · 78705-3823
Pizza Restaurant
375 were here · 28 likes


Salvation Pizza
624 W 34th St · Austin, Texas · 78705-1203
Pizza Restaurant
506 were here · 80 likes


Double Daves Pizza Works
11900 Metric Blvd Ste F · Austin, Texas · 78758-3121
Pizza Restaurant
437 were here · 23 likes


Brick Oven Restaurant
9911 Brodie Ln Ste 600 · Austin, Texas · 78748-5964
Pizza Restaurant · Italian Restaurant · Family Style Restaurant
465 were here · 24 likes




--
Zucco

I am here in Austin and happy to help. When I copied your data I get 4 lines and
2 blank rows for a block of 6 rows. If only one blank or none change blank=
BTW. The best pizza is on RR 620 at Saconnes or Romes.

Sub transposeblocksSAS()
block = 6
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step block
Cells(i, 1).Resize(block).Copy
Cells(i, "b").End(xlUp)(2) _
..PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Next i
Columns.AutoFit
End Sub