using End(XLDown) should move to the end of used range and place you in the
first empty row

sh2.Cells(v2(i), rng.Column).End(XLDown).PasteSpecial _

Also with these two changes you should have half as many lines of code and
no array

"EMoe" wrote:


You are right! I changed "transpose" to true, and it pasted the values
in a row. But clicking the button again pasted the values again on the
same row.

I need for the new values to paste on the next row, and not straight
across.

How do I do this?

EMoe


--
EMoe
------------------------------------------------------------------------
EMoe's Profile: http://www.excelforum.com/member.php...o&userid=23183
View this thread: http://www.excelforum.com/showthread...hreadid=470544