VBA to copy non adjacent cells on same row

[craigsharp]

Hi,

I imagine this will be really easy but my VBA is not very good.

I want to copy the contents of cells in columns O & A from the active row, I tried this:

R = ActiveCell.Row
Range(Cells(R, 15), Cells(R, 1)).Copy

Which copies but includes all rows inbetween

Any help much appreciated

Regards,

Craig

 

[VoG]

Try

R = ActiveCell.Row
Union(Cells(R, 1), Cells(R, 15)).Copy

 

[craigsharp]

Thanks!

I knew I needed something else but couldn't find it anywhere