Copy/Paste Non Continuous Range

[stapuff]

I am looking for the syntax to copy a noncontinuous range

like copy from Sheet1

activecell.value, activecell.offset(0,-1).value, activecell.offset(0,14), activecell.offset(0,11).value

Paste values to the first empty row of sheet2 range A

Thanks,

Stapuff

 

[VoG]

Possibly

Dim r As Range
Set r = Union(ActiveCell, ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 14), ActiveCell.Offset(0, 11))
r.Copy
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

 

[stapuff]

Nice one VoG I appreciate the help.

 

[stapuff]

VoG -

Any particular reason why when it pastes the values it pastes not in the correct order? It paste like:

ActiveCell.Offset(0, -1), ActiveCell, ActiveCell.Offset(0, 11), ActiveCell.Offset(0, 14)



Union(ActiveCell, ActiveCell.Offset(0, -1), ActiveCell.Offset(0, 14), ActiveCell.Offset(0, 11))
r.Copy
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

 

[VoG]

It is clearly pasting in column order. If you wanted a particular order you would need to copy and paste each cell separately.

 

[stapuff]

Understood...thanks.

Stapuff