error :this method or property is not available because the clipboard is empty when copy several chart

I have some tables and chart in an Excel file that I want to copy to a Word file. Sometimes it displays the above error. After searching, I found out that it is due to the time problem. What is the solution to this issue? The solution that seems to me is to put a time pause(delay) between the codes. Is this solution correct? What is the correct solution? Below is part of my code:

Set WS = workbookCopy.Sheets("final_sandogh")
count = WorksheetFunction.CountA(WS.Range("A1:A150")) - WorksheetFunction.CountIf(WS.Range("A1:A150"), "=0")
Set tbl = WS.Range("A1:I" & count)
tbl.Copy
myDoc.Paragraphs(108).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False

'--copy chart2
Set WS = workbookCopy.Sheets("final_govahi")
count = WorksheetFunction.CountA(WS.Range("A1:A150")) - WorksheetFunction.CountIf(WS.Range("A1:A150"), "=0")
Set tbl = WS.Range("A1:I" & count)
tbl.Copy
myDoc.Paragraphs(105).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False

'--copy chart3
Set WS = workbookCopy.Sheets("final_salaf")
count = WorksheetFunction.CountA(WS.Range("A1:A150")) - WorksheetFunction.CountIf(WS.Range("A1:A150"), "=0")
Set tbl = WS.Range("A1:I" & count)
tbl.Copy
myDoc.Paragraphs(102).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False

'--copy chart4

Set WS = workbookCopy.Sheets("final_bargh_salaf")
count = WorksheetFunction.CountA(WS.Range("A1:A150")) - WorksheetFunction.CountIf(WS.Range("A1:A150"), "=0")
Set tbl = WS.Range("A1:I" & count)
tbl.Copy
myDoc.Paragraphs(99).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False