Last non blank cell with number in column

[QuantMan]

Hi,

Any idea how I tweak this to make the last non-blank cell with a number (only).

Function LastNonBlankCell(Range As Excel.Range) As Variant
Application.Volatile
LastNonBlankCell = Range.End(xlDown).Value
End Function

 

[AlphaFrog]

Try this...

[color=darkblue]Function[/color] LastNonBlankNumericCell(Rng [color=darkblue]As[/color] Excel.Range) [color=darkblue]As[/color] [color=darkblue]Variant[/color]
    [color=darkblue]Dim[/color] v [color=darkblue]As[/color] [color=darkblue]Variant[/color], i [color=darkblue]As[/color] [color=darkblue]Long[/color]
    v = Intersect(Rng.Parent.UsedRange, Rng).Value
    LastNonBlankNumericCell = [color=darkblue]CVErr[/color](xlErrNA)
    [color=darkblue]For[/color] i = [color=darkblue]UBound[/color](v, 1) [color=darkblue]To[/color] 1 [color=darkblue]Step[/color] -1
        [color=darkblue]If[/color] Len(v(i, 1)) And IsNumeric(v(i, 1)) [color=darkblue]Then[/color]
            LastNonBlankNumericCell = v(i, 1)
            [color=darkblue]Exit[/color] [color=darkblue]For[/color]
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color] i
[color=darkblue]End[/color] [color=darkblue]Function[/color]

 

[QuantMan]

Works great. Thx AlphaFrog