The code below works for me in Excel 2007.
I needed to add a reference to Microsoft Word 12.0 Object Library. I suspect you have a reference to the 2003 Object Library which may show as MISSING and you need to untick it and add a reference to the 2010 Object Library.
Note that you should also make a habit of defining (using Dim) your variables. You use a variable I ("wsFactark.Cells(I + 4, 13).Copy") and it is not clear to me where that variable is initialised (and it will therefore be blank or zero)
Regards, TMS
Bookmarks