求助下，如何对多个文件中的工作表进行更新操作

少少@_^

各位老师，我现在在做一个简单的编程
1、在“E:\绩效考核”这个目录里面有一张“汇总表.XLSX”还有12个子目录“1月”……“12月”每个子目录里面有一张“X月考核测算定稿.xlsx”表格。
2、汇总表和分月考核表里面都有个系数的SHEET。
3、我现在想实现的是更新汇总表里面的SHEET后分月考核表里面的SHEET数据也能更新。

我现在写了一段代码能够实现单个表格的数据更新，我想请教我是继续写12段同样的代码还是有什么好的方法？

Sub 更细绩效测算系数()
'
' 更细绩效测算系数 宏
      Dim jan$
        jan = ThisWorkbook.Path & "\1月\2014年1月考核测算定稿.xlsx"
    Workbooks.Open (jan)
        ActiveWorkbook.Worksheets("系数表").Select
            ThisWorkbook.Sheets("系数表").Range("A1:O10").Copy ActiveSheet.Range("A3:O12")
    ActiveWorkbook.Close savechanges:=True