You might want to reread you post and then repost with a clearer
description. You start out in your description moving across columns and
suddenly end up at B6270.

If I understand you correctly, your data is every 10 rows, but you say your
code processes B2 to B16.

anyway see if this works

Sub ReorganizeData()
for i = 10 to 6270 step 10
cells(i,2).Resize(10,1).copy
cells(i,2).PasteSpecial xlValues, transpose:=True
cells(i+1,2).Resize(9,1).ClearContents
Next
set rng = Range("B10:B7000").specialCells(xlBlanks)
rng.EntireRow.Delete
End Sub

Run this on a copy of your data to see if it does what you want.
--
Regards,
Tom Ogilvy

"JonathonWood9" wrote in message
...
I have address label data starting at B10 and then every 10 cells so c10,
d10, e10 etc all the way to B6270 i want to move the items in B11, 12 13
14
15 and 16, to column c,d,e,f,g,h so that i can export to Word, access etc
using column headings of Company name, add1 add2 etc.
How do i create a macro that does this. My first attempt did move the
first
block B2 through B16 but did not move to b10 to start the next batch, so
when
repeating the macro it went back to B2 and moved the now empty b3-b6 cells
to
their "new" columns.
Also how will i delete rows 11 to 19 21-29 etc once the data is moved.
regards Jon