I understand and also appreciate your assistance. All this was my trying to
help the OP below (earlier) with the Subject line:

Want to move several cells info to next available ...

There you will see my proposed dulution (which incorporated your suggestion)..

Jim

"Gary''s Student" wrote:

Sometimes simple is "good enough".

If you are interested in a more general solution:

arbitrary collection of cells in Sheet1 to contiguous cells in a single row
in Sheet2, check back later.
--
Gary''s Student - gsnu200723


"JMay" wrote:

That's it? -- at one point I thought of doing them separately (like this)
but thought there is probably a "fancier way" of combining A1 and C1.

Not so, huh?

Thanks,

Jim

"Gary''s Student" wrote:

Sub foo()
Sheets("Sheet1").Range("A1").Copy Sheets("Sheet2").Range("A1")
Sheets("Sheet1").Range("C1").Copy Sheets("Sheet2").Range("B1")
End Sub

--
Gary''s Student - gsnu200723