Thanks, will try it out.

--

Regards
Michael Koerner


"Mike H" wrote in message ...
Hi,

lastrow = Cells(Rows.Count, "G").End(xlUp).Row
Range("A1:G" & lastrow).Sort Key1:=Range("E2")

Mike

"Michael Koerner" wrote:

I have a macro with the following line:

Range("A1:G1024").Sort Key1:=Range("E2"),

Is there a way to code it so that whenever I add a new item I don't have to continually edit the macro, and change the end range value to accommodate the newly inserted item?

--

Regards
Michael Koerner