set lastcol = Worksheets("Other").Cells(3,"IV").End(xltoLeft)
selection.Copy Destination:=LastCol.Offset(0,1)

--
Regards,
Tom Ogilvy

"cwatson" wrote in
message ...

i have multiple selections in three column blocks that need to be pasted
in the next free column of another sheet or the next free cell
horizantally. needs to be in VBA code

ty all


--
cwatson
------------------------------------------------------------------------
cwatson's Profile:
http://www.excelforum.com/member.php...o&userid=24608
View this thread: http://www.excelforum.com/showthread...hreadid=382480