Find Last Row in Sheet

[Gregfox]

Hi, I’m using Excel 2007, and wish to find the last row in data sheet “Main”, and put text “END” in column A of that last cell. The complication is not all columns always have data.
I’ve tried;
Sub LastRowTest ()
LastRowColA = Range("A65536").End(xlUp).Row<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
ActiveCell.FormulaR1C1 = "text"<o></o>
End sub<o></o>
======================================================<o></o>
And I also tried;<o></o>
Sub LastRowTest ()
Dim ws As Worksheet<o></o>
Set ws = Worksheets("Main")<o></o>
<o></o>
iRow = ws.Cells(Rows.Count, 1) _<o></o>
.End(xlUp).Offset(1, 0).Row<o></o>
'ActiveSheet.Paste 'ActiveSheet.PasteActiveCell.FormulaR1C1 = "text"<o></o>
End sub<o></o>
<o></o>
NO LUCK… Anyone have an answer?
Thanks!

 

[Gregfox]

When I run this code nothing happens...

 

[Gregfox]

Sorry, my mistake, I forgot to add END at the end.
It worked GREAT!
Thank you again!

 

[VoG]

Tested and working here. If you don't have END in column A then nothing will happen.