Нужна помощь в сохранении скопированного диапазона из файла Excel в отдельные файлы на основе диапазона в VBS

Question

Я работаю над сценарием VB, который возьмет электронную таблицу Excel и разделит ее на четыре отдельных файла в зависимости от указанного диапазона.

У меня это работает, но у меня только трудностисохранение скопированных ячеек ... Я получаю скопированные ячейки И всю совокупность.

Set oExcelWorkbook = oExcelObject.Workbooks.Open("C:\TEST\sample.xlsx")

oExcelWorkbook.Worksheets("Sheet1").Range(sRange1).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file1.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange2).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file2.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange3).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file3.xlsx", 51

oExcelWorkbook.Worksheets("Sheet1").Range(sRange4).Copy
oExcelWorkbook.Worksheets("Sheet2").Range("A2").PasteSpecial
oExcelWorkbook.Worksheets("Sheet2").SaveAs "C:\TEST\file4.xlsx", 51

Каждый файл имеет всю совокупность в SHEET1 и запрошенную совокупность диапазонов в SHEET2.

Я только хочу, чтобы четыре файла содержали результаты, скопированные в SHEET2

. Любая помощь будет принята с благодарностью.

Спасибо.