Sub TryNow()
Dim myArea As Range
For Each myArea In Selection.Areas
myArea.Copy Worksheets("SheetName").Range("IV1").End(xlToLeft) (1, 2)
Next myArea
End Sub

HTH,
Bernie
MS Excel MVP


"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