Your code doesn't find the next empty cell, it finds the last non-empty cell
+ 1 row.

Try something like

Range("A10").End(xlDown)

and so on.

--
HTH

-------

Bob Phillips
"Jako " wrote in message
...
I am using this code to find the next empty cell

Sub SelectNextEmptyCell()
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
End Sub

What i need is to start checking at row 10 in column "A" not at row 1.

So for my first entry i need to goto cell "A10" and paste the value.

Then my second entry needs to go into the next empty cell below "A10"
and so on and so forth

Could someone please advise.

Many Thanks


---
Message posted from http://www.ExcelForum.com/