Indicar el numero de fila que contenga un valor

Te anexo la macro

Sub FilasConValor()
'Por.Dante Amor
    f = 2
    u = Range("J" & Rows.Count).End(xlUp).Row + 1
    Range("J2:J" & u).ClearContents
    For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
        If Cells(i, "B") <> "" Then
            Cells(f, "J") = i
            f = f + 1
        End If
    Next
End Sub

En J2:

=K.ESIMO.MENOR(SI(B$2:B$8<>"";FILA(B$2:B$8));FILA()-1)

copiar y pegar hacia abajo, hasta J8.

Se trata de una fórmula matricial, por lo que hay que introducirla pulsando mayúsculas control entrada al mismo tiempo.

A partir de la fila 4 se producirá el error #¡NUM!, que se debe a que sólo hay 3 valores en la columna B. Se puede evitar que se muestren estos errores usando:

=SI.ERROR(K.ESIMO.MENOR(SI(B$2:B$8<>"";FILA(B$2:B$8));FILA()-1);"")

(obviamente, también matricial)