enter in last row in a set range

[Av8tordude]

I would like to enter an entry from the last row of a table that ends at A12. Using the code below is only useful if I use the entire range (A:A). Since I have limited my entries (A3:A12), I would like to check for the last empty row in rows A3:A12 and make my entry. How can I adjust the code to accomplish this task. Thanks

LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row

 

[Joe4]

Is there already something in A1 and A2?
What happens is all ten rows of column A are already populated (A3:A12)?

 

[Av8tordude]

Is there already something in A1 and A2?
What happens is all ten rows of column A are already populated (A3:A12)?

Rows A1:A2 are Title headers.
The table is set to be limited to only 10 rows. (A3:A12)

A13 and lower is used for other information

 

[KolGuyXcel]

It's working fine with me! No need for any adjustment.

 

[Av8tordude]

It's working fine with me! No need for any adjustment.

I have a data from A13 and below. I want to search for the last empty row from the range (A3:12) only. Since I have table from A13 and below, its reading that information.

 

[Fluff]

How about

Sub NextBlank()
   LastRow = Range("A:A").SpecialCells(xlBlanks)(1).Row
End Sub

 

[Av8tordude]

How about

Sub NextBlank()
   LastRow = Range("A:A").SpecialCells(xlBlanks)(1).Row
End Sub

Works perfect...Thank you everyone your assistance. Greatly appreciated it.

 

[Joe4]

Glad you got a solution.
You didn't answer this question:

What happens if all ten rows of column A are already populated (A3:A12)?

Maybe that is not a possibility, but if it is, you will need to check for that and account for that.

 

[Av8tordude]

Glad you got a solution.
You didn't answer this question:

Maybe that is not a possibility, but if it is, you will need to check for that and account for that.

I inserted the code below to trigger a message indicating the table is full.

If Range("A12") > vbNullString

 

[MARK858]

Just another possible way (and just in case there ever could be 2 blanks in the range)...

Range("A3:12").Find("*", , xlValues, , xlByRows, xlPrevious)(2).Row