お二方回答ありがとうございます。
回答を見たばかりなので、内容確認できてはおりません。
中略した部分も提示してください。
Set xls = CreateObject("Excel.application")
With xls
.screenUpdating = False
.workbooks.Open strTemplateDir & strTemplateBook
.workbooks(strTemplateBook).Worksheets("xxx").Copy
.workbooks(strTemplateBook).Close
.Range(xls.cells(21+i , 1), xls.cells(21+i+j , 1).entirerow.Insert
こんな感じです。
https://tsware.jp/tips/tips_689.htm
様のサイトを参照して作っている部分です。
通報 ...