there are only 256 columns in Excel, so you might want to rethink you
approach.

Just select all the columns and paste trasposes

Sub Tester3()
Worksheets("SS1").Rows(1).Copy
Worksheets("SS2").Range("A1").PasteSpecial Transpose:=True

End Sub

There is not reason not to do it all in one step using the whole row.

--
Regards,
Tom Ogilvy




Cynthia wrote in message
...
Hope someone can help. I have 2 spreadsheets. In SS1 I'm pulling data
from columns B, C, onward and pasting it into rows 1, 2, etc in SS2. Of
course I can easily record a macro by performing this function 1 cell at a
time, but these will eventually be very large spreadsheets, maybe 700
columns in SS1 being pasted into 700 rows in SS2. How do I write the macro
to perform this function for one column and tell it to continue running as
long as the next column has data?