find last blank cell in column, insert text

[orsm6]

Hi all - is there simpler code for me to find last blank cell in column J and insert a hard coded text value?
the sheet is called Layout if that helps....

TIA - ive searched a number of posts that are similar but they don't answer what i need.... so far that i have found

 

[MARK858]

Do you mean the first blank cell after data in column J (the last blank cell will probably be J1048576)

 

[orsm6]

Do you mean the first blank cell after data in column J (the last blank cell will probably be J1048576)

sorry yes exactly last blank after data

 

[MARK858]

Maybe (if you don't want formulas returning "" treated as data)...

Cells(Rows.count, "J").End(xlUp)(2).Value = "AAA"

or

Columns("J").Find("*", , xlValues, , xlByRows, xlPrevious).Offset(1).Value = "AAA"

 

[orsm6]

Maybe (if you don't want formulas returning "" treated as data)...

Cells(Rows.count, "J").End(xlUp)(2).Value = "AAA"

or

Columns("J").Find("*", , xlValues, , xlByRows, xlPrevious).Offset(1).Value = "AAA"

oh awesome... thanks for this.

 

[MARK858]

You're welcome