also you can move ActiveCell on the same row in column B with the
following code

Application.Goto Cells(ActiveCell.Row, 2)

isabelle

Le 2013-08-14 22:34, isabelle a écrit :
hi,

before copy, check that ActiveCell is part of Column B

If ActiveCell.Column = 2 Then

isabelle


Le 2013-08-12 18:23, a écrit :
I cannot explain this behavior, which is occurring when I do the
action from a macro or manually:

I have a number of cells adjacent to each other, some of which are in
a named range and some are not.

My code is as follows:

Sub Renum_AddRow()

Sheets("ReNum").Select
Call UnprotectOne
Range("ReNumTemplate").Select
Selection.EntireRow.Insert
Range("ReNumTemplate").Copy Destination:=ActiveCell

Call ProtectOne

End Sub