Dim rng as Range
With worksheets(2)
set rng = .cells(rows.count,1).End(xlup).Offset(1,0)
End With

worksheets(1).Range("A1").CurrentRegion.Copy _
Destination:=rng

' if you mean named range, now to redefine

rng.CurrentRegion.Resize(,6).Name = "MyData"

--
Regards,
Tom Ogilvy

"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