Just put what I gave you in a submodify to suit your sheet namescolumns,
etc or contact me privately for custom work

sub copydatatosheet2()
dlc=sheets("sheet2").cells(1,columns.count).end(xl toleft).column+1
sheets("data").columns(2).copy sheets("sheet2").columns(dlc)
end sub

--
Don Guillett
SalesAid Software

"vigfus" wrote in message
...
Thank you for the quick answer!

Unfortunately my knowledge of macros stretches as far as to record a basic
macro. Not edit it afterwards... I have tried but failed. A more elaborate
explanaition would be nice, but i think i could manage with some link to
related information.