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