BY COADING IF FORMULA IN EXCEL

 Option Explicit

Sub PASSORFAIL()

Dim MARKS As Byte

MARKS = ActiveCell.Offset(0, -2).Value

Select Case MARKS

Case 0 To 34

ActiveCell.Value = "F"

Case 35 To 49

ActiveCell.Value = "E"

Case Else

ActiveCell.Value = "A"

End Select

End Sub