It aint to elegant but I think this will do it:

Sub testit()

ActiveSheet.Range(Cells(1, 31), Cells(1, 42)).Copy
ActiveSheet.Cells(ActiveCell.Row, 31).PasteSpecial

End Sub

"markb" wrote:

Howdie,

I need to copy the following range 1,31:1,42 to the current row,31:42.

I don't want to use AE1:...because I want to use the R1C1 style in the
module to protect against the insertion of columns that might fowl up the
calcs.

Any info would be great!

Thank you.
--
Markb