Excel transpose using VB 2010 express

I am using VB to show large data in excel. They show up in A1:A3000. I am transposing A1:A6 to B1:G1 using this code:

Code:

---

sheet.Range("A1:A6").Copy()
sheet.Range("B1").PasteSpecial(Transpose:=True)

---

It's working, but I'm facing trouble for repeating this process upto A3000. Basically I want to convert 1 column x3000 rows data into 6 columns x 500 rows data i.e the end result should have 500 rows filled in columns B:G.

is this a VBA question?

try the Office Development forum:

http://www.vbforums.com/forumdisplay...ce-Development