copying non-adjacent cells

[hke]

Hi,

Say you have several non-adjacent cells selected. How can you
copy&paste the contents of these cells with the pasted cells also
non-adjacent?

 

[Ron de Bruin]

Example to copy to the next sheet in the same place

Sub Test()
For Each myarea In Selection.Areas
With myarea
.Copy Destination:=.Parent.Next.Range(.Address)
End With
Next myarea
End Sub