Hello,

Does this work as required. I assume columns I and J are available to enter results, Column I for you point 2 and Column J for your point 1.

Sub DATES()    For MY_ROWS = 3 To Range("K" & Rows.Count).End(xlUp).Row
        MY_LATEST_DIFF = 1E+255
        For MY_COLS = Cells(MY_ROWS, Columns.Count).End(xlToLeft).Column To 12 Step -1
            MY_DIFF = Cells(MY_ROWS, MY_COLS).Value - Cells(MY_ROWS, MY_COLS - 1).Value
            If MY_DIFF < 0 Then MY_DIFF = MY_DIFF * -1
            If MY_DIFF < 30 Then LESS30 = "YES"
            If MY_DIFF < MY_LATEST_DIFF Then MY_LATEST_DIFF = MY_DIFF
        Next MY_COLS
        Cells(MY_ROWS, 10).Value = LESS30
        Cells(MY_ROWS, 9).Value = MY_LATEST_DIFF
    Next MY_ROWS
End Sub