[Spirosgr]

Έστω στήλη Ι με την διάταξη της εικόνας.

Θα επιλέξει, τον πρώτο αριθμό που θα «συναντήσει» από κάτω προς τα επάνω.

Αριθμός:
Μηδέν, ακαίρεος, δεκαδικός, αρνητικός.

Παρακάμτεί:
Κείμενο, κενό, space.

Όπου:
Sh1=Κωδικό όνομα φύλλου.
9=Στήλη που θα ελέγξει. Αλλάξτε αν χρειαστεί (πχ για στήλη Ν=14)

Sub BottomUpValuedCell()
    Dim _
          i As Long, _
            lr As Long

    lr = Sh1.Cells(Rows.Count, 9).End(xlUp).Row

    For i = lr To 1 Step -1

        If IsNumeric(Sh1.Cells(i, 9).Value) And _
           Sh1.Cells(i, 9).Value <> vbNullString Then

            Sh1.Cells(i, 9).Activate

            Exit For
        Else
            'do nothing
        End If
    Next i
End Sub