Finding Negative Numbers

I have this sheet.

If there is/are negative number(s) between DATA cells written A Column, I want spot them writting YES or NO

As seen at the example:

- There is no negative number between A1:A3 so when DATA is written NO must be written just next cell (B3)

- There is no negative number between A3:A13, the result is same

- There is one negative number (A20) between A13:A26, YES is written next cell (B26)

I can arrange A column. The question is this:

What kind of function must be written at the B Column that;

When does Excel spot the "DATA", Excel must search the field between the last two DATA cells and if there is negative number or not, YES or NO must be written in the cell just next the last DATA cell ?

Thanks a lot for help.

DATA.jpeg

Try this user defined function

Function SpotNegativeNumbers(MyRange As Range) As String
Dim N As Long
Dim HasNegative As Boolean

HasNegative = False
If MyRange.Offset(0, -1) = "DATA" Then
    For N = 1 To MyRange.Row - 1
        If Cells(N, 1) = "DATA" Then Exit For
        If MyRange.Offset(-N, -1) < 0 Then
            HasNegative = True
            Exit For
        End If
    Next N

    If HasNegative = True Then
        SpotNegativeNumbers = "YES"
    Else
        SpotNegativeNumbers = "NO"
    End If
End If
End Function

Open the VBA editor by hitting Alt F11.
Insert a new module with Insert - Module
Paste in the above function
Go back to the sheet by hitting Alt F11.

In a B1, enter =SpotNegativeNumbers(B1) and copy down

Remember to save the workbook as a macro enabled workbook .xlsm