Вывод последнего положительного значения

[NADS7890]

Добрый день!

Подскажите, пожалуйста, формулу для строки.

Необходимо вывести последнее положительное значение по строкам.
При транспонировании сбиваются формулы, благодаря которым были занесены данные в таблицу (привязка данных крайне необходима)

[Казанский]

UDF, использовать =Nads(A2:I2) (для J2). Возвращает #Н/Д, если положительных нет.

Function Nads(r As Range)
Dim x
Nads = CVErr(xlErrNA)
For Each x In r.Value
  x = Val(Replace$(x, ",", "."))
  If x > 0 Then Nads = x
Next
End Function