Sub MFC_F_M()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
If Right(Trim(c.Value), 1) = "M" Then c.Interior.ColorIndex = 6
If Right(Trim(c.Value), 1) = "F" Then c.Interior.ColorIndex = 3
Next
Application.ScreenUpdating = True
End Sub