Determining the nth Column

[markb]

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.

 

[TomPl]

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