Copy and paste macro
 

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

Copy and paste macro
 

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