Run-time error '4605': This method or property is not available because the Clipboard is empty or not valid.

I have a macro that I run from Excel that loops through 53 files. The loop opens a Word template file (.dotx), copies content from two tables in an Excel file and saves them in a new Word document, and closes the template.

Sometimes the macro will loop successfully through all 53 files, but most times it crashes after looping successfully through 5, 10 or 15 files.

The error is:

Run-time error '4605': This method or property is not available because the Clipboard is empty or not valid.

It occurs during the paste.

I have read that deleting the Normal.dotm template can help - I have done this numerous times. It seemed to help the first time I tried it, but not any more - very frustrating!

Word 2010 and Excel 2010.

I suspect this is a problem with RAM, but am not sure - any advice very gratefully received!

Sub GetCPdata_PasteInWord_EN()

Dim wbk As Workbook

Dim Filename As String

Dim Path As String

Dim wdApp As Word.Application

Dim wdDoc As Word.Document

Dim CntName As Range

Dim CNameRange As Word.Range

Dim tbl As Excel.Range

Dim WordTable As Word.Table

Dim lRow, x As Integer

Dim WordDocName As String

Dim DirName As String

Path = "N:\DCE\IRP\2. Influenza EURO\Country profiles\2017\Production\EN_RU"

Filename = Dir(Path & "*.xlsx")

Application.DisplayAlerts = False

Application.ScreenUpdating = False

 Do While Filename <> ""

    Set wdApp = CreateObject("Word.Application")

    wdApp.Visible = True

    Set wdDoc = wdApp.Documents.Open("N:\DCE\IRP\2. Influenza EURO\Country profiles\2017\CountryProfile_EN_landscape.dotx")

    Set wbk = Workbooks.Open(Path & Filename)

    Sheets("User Form").Visible = True

    Set CntName = wbk.Sheets("User Form").Range("B2")

    Set CNameRange = wdDoc.Goto(What:=wdGoToBookmark, Name:="CountryName")

    CNameRange.Text = CntName

    Sheets("Header").Visible = True

    Set tbl = wbk.Worksheets("Header").Range("A1:D1")

    tbl.Copy

    wdDoc.Bookmarks("Header").Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False

    Sheets("Table_EN").Visible = True

    Set tbl = wbk.Worksheets("Table_EN").Range("A3:G13") '<--| adjust G cell reference to match final cell

    tbl.Copy

    wdDoc.Bookmarks("CPtable").Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False

    WordDocName = wbk.Sheets("User Form").Range("B2").Value & "_" & wbk.Sheets("User Form").Range("B3").Value & "_EN"

    With wdDoc

        wdDoc.Activate

        wdDoc.SaveAs Filename:="N:\DCE\IRP\2. Influenza EURO\Country profiles\2017\Production\BatchWord_EN" & WordDocName & ".docx", FileFormat:=wdFormatXMLDocument

        wdDoc.Close savechanges:=False

    End With

    wbk.Close savechanges:=False

    wdApp.Quit

    Filename = Dir

 Loop

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub