Find last cell in a range

[MrTeeny]

At the moment I'm using the following to find the last cell but obviously it only searches the A column is there a way I can amend it to search more than one column say to AH, I imagine it's probably some simple syntax but I haven't been able to find it yet.

Thanks

Dim LrowRunners As Long
LrowRunners = sht_runners.Cells(sht_runners.Rows.Count, "A").End(xlUp).Row ' last row with data

 

[Fluff]

This will find the last row, regardless of column

    LrowRunners = sht_runners.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[Vbagreenhorn1]

with range A:AH

LrowRunners = sht_runners.Range("A:AH").Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[MrTeeny]

Thanks Guys

 

[Fluff]

Glad we could help & thanks for the feedback

 

[Rick Rothstein]

This will find the last row, regardless of column

    LrowRunners = sht_runners.Cells.Find("*", LookIn:=[B][COLOR="#FF0000"]xlFormulas[/COLOR][/B], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

It is probably not going to apply to the OP's data, but one proviso for anyone reading this message with the idea of using the above code line in their own programs... specifying xlFormulas will make the Find method locate the last row with a constant or a formula in it even if that formula is displaying the empty text string (""). If you use xlValues instead of xlFormulas, then the row with the cell (whether it contains a constant or formula) that is displaying an actual value will be identified (even if there are formulas after it that return the empty text string).