YuOさん　ありがとうございます

>・xlApp.Workbooks
>・xlBook.Worksheets
>・xlsCell(xlsCell.Rows.Count, 1)
>・CType(xlsCell(xlsCell.Rows.Count, 1), Range).End(XlDirection.xlUp)
>・xlsheet.Cells(xlRng, 1)
>・xlsheet.Cells(xlRng, 2)
>・xlsheet.Cells(xlRng, 3)
>・xlsheet.Cells(xlRng, 4)
>・xlsheet.Cells(xlRng, 5)
>・xlsheet.Cells(xlRng, 6)
>・xlsheet.Cells(xlRng, 7)
>あたりが解放されていないようですが

そうなんですね、もうどうしていいか解らなくなってます。

> また、【使用するデータの最終行を決める】のあたりの書き方は合っているのでしょうか？
>UsedRange使った方がよい場合もあるでしょう。

UsedRangeですね、どうのように書けばいいのでしょう？
すいません　勉強不足でちゃんと理解してないです。