Repeat error - VBA Automation (Help Needed)

Hello,

Firstly, thank you for taking the time to read my thead!

With the help of one of the forum members here I was able to produce a piece of VBA coding which automatically copied data from excel into word.

The code function works fine, however I keep receiving errors (Different errors on different lines).

The errors aren't the same, and from what I have been able to work out can happen at any time, on any cell. The code however some times runs all the way through with no errors, without me changing anything on either documents.

I have attached both documents & coding below. I was hoping someone could download & run a few times to see if they can make sense of the issue.

*The word document needs to be open whilst running the macro
*Please run a few times before coming to the conclusion it is fixed.
*Document A is the excel document the data needs to be copied from.
*Document B is the word document I require the data to be transferred to.


Logic - I require the code to copy and paste data into word headings, which I have set up already within word.

I initially thought this may be due to the clipboard being full, as the error is appearing sporadically.... So I added in

Please Login or Register  to view this content.

which then allowed me to complete the module, however on the second run the same errors started to appear.

Please Login or Register  to view this content.

Any help would be greatly appreciated.

Thanks,
Michael

Update - The run time error I seem to be receiving, irregardless of which line of data it decides to appear on in "4605"

In word go to File>Options>General and see if there is a check mark in the box:

"Open e-mail attachments and other uneditable files in reading view"

If there is, remove it.

*From answers.microsoft.com

I have just checked, the box was already set as unmarked.

I have done some research & amended my code slightly to clear the clipboard after every paste as run time error 4605 seems to be associated with clipboard issues.

I created a macro to clear clipboard labelled "Empty Clipboard" and then referenced it after every pasted.

This seems to have increased the success rate to 3/5 times.

Code now amended to:

Please Login or Register  to view this content.