Dear Sir,

Thry the following:

Range("a2").Resize(Selection.End(xlDown), 7).Select

What it does?

1. Select cell "A2" -- your first cell in the range
2. Expand the range to include the new rows added
"resize(selection.end(xldown),7).
3. Select the new range --" a2:g407"

Please, let me know if that solved your problem.

regards
Juan Carlos


--
cscorp
------------------------------------------------------------------------
cscorp's Profile: http://www.excelforum.com/member.php...o&userid=24015
View this thread: http://www.excelforum.com/showthread...hreadid=376978