Dear Sir

Once you have selected the last cell try this:

Selection.Offset(-30, 0).Resize(31, 1).Copy

What it does?

With the last cell selected move the pointer 30 cells up "Offset
(-30,0)" then expand the selection to cover 31 cells down
"resize(31,1), and copy the selected range. Please, let me know if
that solve 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=376981