Next Empty cell after Row A10

J

Jako

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 Thank
 
B

Bob Phillips

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.
 
J

Jako

Doesn't that equate to the same thing ?

Excuse my ignorance if i am wrong but thanks for the reply anyway
 
T

Tom Ogilvy

Sub SelectNextEmptyCell()
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
if Selection.Row < 10 then Range("A10").Select
End Sub
 
B

Bob Phillips

No, because your code works from the bottom up until it finds a non-blank.
An y blanks between the current position and that final non-blank are not
considered..
 
Top