求助：将成绩按比例划分等级并统计输出不成功，请求VBA调试修改

存在的问题：
1.学生成绩未能成功按成绩优劣比例设置分段【E3：J4】，也就是总人数的15%的学生成绩记10分，依次记下去
2.未正确输出到F:J,错开了一列
请帮助看代码如何修改调整。