多个excel文件，指定关键字GR,SP,AC列进行排序

我有多个excel文件，每个excel第一行为列名，第二行开始全为数字。
每个excel文件行数不同，列数不同。每个excel文件列名不完全相同，但都包含GR,SP,AC。
我想将每个excel文件的第一列为GR,第二列SP,第三列AC.其它的列全删除。
具体附件可参看http://club.excelhome.net/thread-792775-1-1.html
顺便请高手注释一下关键代码，由于小弟新手，另想以后将保存的列增加以扩展使用。所以麻烦一下。

用for...next循环找到GR SP AC这三列
然后将列的column属性保存在Benchmark()数组中
之后再根据Benchmark()进行排序