Search for the column that contains a given text, and then search for the row that contains the last non-blank cell in the worksheet

[sneakymist]

I am trying to create a code that does two things:

1. First, the code will search for a column that contains a given text within the worksheet.
   
2. Afterwards, the code will search for the row with the last non-blank cell in the worksheet, while remaining on the same column as 1.
   
   
   
   
   
   
   As shown in the example above, the code would first search for the text "FIRST" in A1. Afterwards, it will search for the last non-blank cell in the worksheet, which is C11. However, it should remain in the column that contains "FIRST", so that only the row changes. The final result would be A11.
   So far, I found the code that lets me do 1.
   
   

     [CODE]Cells.Find(what:="FIRST", 
                  after:=ActiveCell, 
                  LookIn:=xlFormulas, 
                  LookAt:=xlPart, 
                  SearchOrder:=xlByRows, 
                  SearchDirection:=xlNext, 
                  MatchCase:=False, 
                  SearchFormat:=False).Activate

   
   and another code that lets me do 2.,
   
   Cells.Find(what:="*",
   after:=Range("A1"),
   LookAt:=xlPart,
   LookIn:=xlFormulas,
   SearchOrder:=xlByRows,
   SearchDirection:=xlPrevious,
   MatchCase:=False).Activate
   [/CODE]
   
   However, I am unable to use them together to achieve my intended goal.
   
   
   Any suggestions to answer this would be appreciated. Thank you!
   
   
   

 

[Rick Rothstein]

When you say "the final result would be A11", did you mean that cell A11 would be selected? If so...

[table="width: 500"]
[tr]
	[td]Intersect(Cells.Find("FIRST", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False, False).EntireColumn, Cells.Find(what:="*", after:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).EntireRow).Select[/td]
[/tr]
[/table]

 

[sneakymist]

When you say "the final result would be A11", did you mean that cell A11 would be selected? If so...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Intersect(Cells.Find("FIRST", ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False, False).EntireColumn, Cells.Find(what:="*", after:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).EntireRow).Select[/TD]
[/TR]
</tbody>[/TABLE]

Yes, that is what I meant.

Just tested what you wrote, works great!

Thank you for the reply, really appreciate it!