does this help

Sub firstblankrow()
fbr = Cells(1, 1).End(xlDown).Offset(1).Address
Range("a1").Copy Range(fbr)
End Sub


--
Don Guillett
SalesAid Software

"Bikernick" wrote in message
...
I am trying to write a bit of code to search for the first blank row in an
excel list then paste a selection at that point in the list then stop.

I have managed it to finding the first blank row, but it continues pasting
into all the blank cells thereafter.

Help please