find and paste
 

Dim iIndex as Integer

Index = 6

Do While Not Cells(iIndex, 2) = Empty

iIndex = iIndex +1

Loop

'when the loop exits Cells(iIndex, 2) will refer to the first blan
cel

--
TommySzalapsk
-----------------------------------------------------------------------
TommySzalapski's Profile: http://www.excelforum.com/member.php...fo&userid=2556
View this thread: http://www.excelforum.com/showthread.php?threadid=38993