this can be done from anywhere in the workbook where sr is the named source
range

Sub copyrangetocol()
With Sheets("Sheet9") 'destination sheet
x = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
[sr].Copy .Columns(x) 'sr is a named range
End With
End Sub

--
Don Guillett
SalesAid Software

"deo89" wrote in message
...
I have a user that has a worksheet in a workbook with a table of data. He
wants to create a macro button on that worksheet that takes the data from
a
certain range in the table and pastes it into the next available column on
a
separate worksheet in the same workbook... ie, paste into col. A the first
time the 'submit' macro button is clicked, into col. B the next time,
etc..

What is the best way to approach doing this and any help with macro
syntax?

thx