Finding last row of data depending on cell value?

[TheWennerWoman]

Hello everyone.

To find the last row of data I have always used

Dim lastrowup As Long

With ActiveSheet
    lastrowup = .Cells(Rows.Count, "A").End(xlUp).Row
End With

This works fine. However, I have a situation where column A (starting at A4) will contain "Post" (via a formula based on other cell contents). There might be five of these (A4 thru A8), there might be fifty thousand (A4 thru A50003); however, at some point "Post" will become "Do Not Post".

I want to find the last row in column A containing "Post", I am not interested in "Do Not Post".......is there a quick hack to the above code I can use?

Many thanks for your time as always.

 

[footoo]

Dim lc As Range
Set lc = [A:A].Find(What:="Post", After:=[A1], LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not lc Is Nothing Then lastrowup=lc.Row.

 

[TheWennerWoman]

Dim lc As Range
Set lc = [A:A].Find(What:="Post", After:=[A1], LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not lc Is Nothing Then lastrowup=lc.Row.

Spot on, many thanks