Find The Last Row In A Range Holding A Number

[Ark68]

Can anyone be able to share a VBA solution to find the last cell in a range that contains a number. Seems pretty simple, I may be having brain fog and I can't see the obvious.
The range is A13:A74.

 

[Kerryx]

Do some of the cells in the range contain anything other than numbers? an example would clarify your question

 

[Snakehips]

@Ark68 Does the below help?

Sub LastNumCell()

For r = 74 To 14 Step -1
    If Not Cells(r, 1) = "" And IsNumeric(Cells(r, 1)) Then Exit For
Next

LstRow = Cells(r, 1).Row
LstAddress = Cells(r, 1).Address
MsgBox LstRow & "    " & LstAddress & "   " & Cells(r, 1).Value
End Sub

 

[Ark68]

Hi Kerryx,

Do some of the cells in the range contain anything other than numbers?

I suppose they do.
In this example, the value I'd be looking for is 72 (last row in the range with a value in it.

WS 28-May-23.xlsx
	A
12
13	45074001
14	45074003
15	45074004
16	45074030
17	45074031
18	45074026
19	45074027
20	45074028
21	45074006
22	45074003-1
23	45074004-1
24	45074026-1
25	45074027-1
26	45074003-2
27	45074004-2
28	45074026-2
29	45074027-2
30	45074028-2
31	45074030-1
32	45074031-1
33	45074003-3
34	45074004-3
35	45074030-2
36	45074031-2
37	45074015
38	45074016
39	45074003-4
40	45074004-4
41	45074026-3
42	45074028-2
43	45074030-3
44	45074031-3
45	45074008
46	45074036
47	45074017
48
49	45074009
50	45074010
51	45074026
52	45074027
53	45074028
54	45074022
55	45074005
56	45074029
57	45074007
58	45074021
59	45074023
60	45074024
61	45074025
62
63	45074011
64	45074012
65	45074013
66	45074014
67
68	45074033
69	45074034
70	45074035
71	45074002
72	45074032
73
74
Master_WRK

 

[Ark68]

Hi Snakehips,
I posted a reply to Kerryx just as you had posted

@Ark68 Does the below help?

It's on the right track. The isnumeric function won't work as we can see that the values could be text (including the last one) ... ########-t

 

[Peter_SSs]

last cell in a range that contains a number

I'd be looking for is 72 (last row in the range with a value in it.

Those two things are not the same.
Assuming it is the second one that you want, try ..

Sub FindLastRowWithValue()
  MsgBox Range("A13:A74").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

 

[Ark68]

Hi Peter ... yes, I acknowledged in my response to Kerryx that the values may not always just contain numbers, and to snakehips recognized that because of that isnumeric won't work, so changed my need to "value" from "a number". Thank you for reminding me I recognized my initial short coming.

This is the solution.

 

[Peter_SSs]

Glad it worked for you. Thanks for the confirmation.