Try this:-
Sub atomic()

Set r1 = Range(Cells(2, 1), Cells(2, 2))
Set myMultipleRange = Union(r1, Cells(2, 3))
myMultipleRange.Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("c1:e1")

End Sub

Mike


"Leith Ross" wrote:

On Jul 3, 11:12 am, wrote:
I am trying to do a copy and paste using cell information instead of
just ranges because I want to later do a for loop so it's easier. When
I run this it errors and highlights the Cells part. I tried to not use
the cell command and it works fine by just doing....Range(A2:C2).
Please help.

ActiveSheet.Range(Cells(2, 1), Cells(2, 2), Cells(2, 3)).Copy <------
error
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("c1:e1")

Hello Carlos,

The Range object can accept a maximum of 2 arguments. Either a single
range value like Range("C1:E1") or
2 arguments that are the starting address and ending address of the
range. Your code would be written like this...

Activesheet.Range(Cells(2,1), Cells(2,3)).Copy

Sincerely,
Leith Ross