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

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