This will select the next available cell in column A.

Range("A" & Range("A65536").End(xlUp).Rows+1).Select

-----Original Message-----
I need a quick bit of code please. If I have data in
Columns A:I which I wish to keep adding to via macro;what
would be the code to find the next blank row and make it
the active row ready to receive the next batch of pasted
data.

Help much appreciated.
Thanks
Graham
.