Jim,

Thanks for the macro. I installed it and it works great. Just what I
needed.

On Sun, 7 Sep 2008 12:31:58 -0400, "Jim Rech" wrote:

Dave mentioned the extend data feature and McRitchie site but since I find
entend data a little finicky and because I wrote a macro prior to Seeing
Dave's reply, I'm posting it<g:

Sub Macro1()
With Intersect(ActiveCell.CurrentRegion, ActiveCell.EntireRow)
.Insert xlDown
With .Offset(-1)
.FillDown
.SpecialCells(xlCellTypeConstants).ClearContents
End With
End With
End Sub