・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使った方がよい場合もあるでしょう。