versuchs mal damit

Sub Makro1()

Dim i As Long

For i = 1 To Cells(Rows.Count, "J").End(xlUp).Row
  
    With WorksheetFunction
      Cells(i, "N") = .Choose(WorksheetFunction.Max(Cells(8, 10).Resize(, 4)) + 1, "E", "D", "C", "B", "A")
    End With
Next
End Sub