Insert a New Row

[tommy bak]

Hi anne
This should also work.
The reason why I don't have a With Activecell around the 3 lines is that activecell changes when a row is inserted

Sub InsertARow()
  'make new row
  ActiveCell.EntireRow.Insert Shift:=xlDown
  'copy the row above
  ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
  'clear every cell in the new line that does not have a formula
  ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

br
Tommy Bak