Excellent!

--
Jim
"Steve M" wrote in message
...
| 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
|