copy data and formulas from a column and paste into a row

[john.laffe]

i have data in one worksheet at the end of a columns that is just totaling
numbers but i need to create a link between this sheet and another that
inputs the results into a row i have tried use the transpose button but it
does not paste the link and formula.

 

[ryguy7272]

Copy/paste the code below into a module. Click on the cell with the first
value in it and run the code:

Sub ToRow()
With ActiveCell
.Resize(1, 9).Copy
.Offset(1, 0).PasteSpecial Transpose:=True
End With
End Sub

Notice, this assumes that you have 9 columns of data; change the 9 to
whatever number of columns you actually have.

Regards,
Ryan---