Troy
One way:
Say old range is A1:F12 and is named "TheRng"
Say you want to name new range, say A1:F15, "TheRng"
Say you know that Column A goes all the way down
Sub ExtendRng()
Range(Range("TheRng")(1), Range("A" & Rows.Count). _
End(xlUp).Offset(, 5)).Name = "TheRng"
MsgBox Range("TheRng").Address
End Sub
HTH Otto
"Troy" wrote in message
...
I need to first thank all those who have been very helpful with my
questions. They have saved me hours of frustrations and searching.

Ok...

I have a range of data and I need to add several rows of data to the end
of the range. How do I extend the range to cover the new data? I don't want
to do it row by row, I would like to add all the rows and then extend the
range.

The range on sheets(2) is from A to F.

I was thinking along the lines of acquiring the starting cell of the old
range and the ending cell of the new data. If I am right, how do I do this?
Is there a better way? I would like to know.

Thanks