Hi,
The following will insert a row from the position they have
selected...

ActiveCell.EntireRow.Select
'Rows("18:18").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(0, 7).Select
'Range("H15").Select
INSERTPT = ActiveCell.Value
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.Offset(3, 0).Select
'Range("H18").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

I have replaced the original code with mine by making them comments
(i.e. ').

Rob Edwards

Always look on the bright side of life!

*** Sent via Developersdex http://www.developersdex.com ***