Newbie - Please Help

[Tim Pratt]

The challenge is simple. I need to be able to copy a formula from a
certain row, in this case row 6, to a row I have inserted. How do I
use a variable that identifies the current (new) row?

Here is my start

ActiveSheet.Unprotect
ActiveCell.Select
Selection.EntireRow.Insert
Range("D6").Select
Selection.Copy
Range("D7").Select FOR INSTANCE - I would liek this to copy to
the new row
ActiveSheet.Paste
Range("E6").Select
Selection.Copy
Range("E7").Select
ActiveSheet.Paste
Range("G6").Select
Application.CutCopyMode = False
Selection.Copy
Range("G7").Select FOR INSTANCE - I would liek this to copy to the
new row
ActiveSheet.Paste
Range("I6").Select
Application.CutCopyMode = False
Selection.Copy
Range("I7").Select FOR INSTANCE - I would liek this to copy to
the new row
ActiveSheet.Paste
Range("J6").Select
Application.CutCopyMode = False
Selection.Copy
Range("J7").Select FOR INSTANCE - I would liek this to copy to
the new row
ActiveSheet.Paste
Range("A4").Select
ctiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

 

[guilbj2]

Just copy the formula, Excel will automatically change it for you

 

[Don Guillett]

Something like this (modified to suit) might help
Selections are RARELY needed.

Sub insertcopy()
ActiveCell.Rows.Insert
Range("d6:e6,g6,i6").Copy ActiveCell
End Sub