Art,

Try something like

With Range("rngData")
.Cells(.Cells.Count + 1).EntireRow.Insert xlDown
ThisWorkbook.Names.Add "rngData", .Resize(.Rows.Count + 1)
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Art" wrote in message
...
Say you have a rectangular range named rngData on your
worksheet, and you want to add a new row of data to the
bottom, expanding rngData accordingly. What's the most
straightforward way to do this in code?