I assume you want vba code

range(cells(2,1),cells(2,1).end(xldown)).copy

to copy a2 thru end of data in column

--
duan

-----------------------------------------------------------------------
duane's Profile: http://www.excelforum.com/member.php...fo&userid=1162
View this thread: http://www.excelforum.com/showthread.php?threadid=46864