PM> Install-Package Spire.XLS

using Spire.Xls;

namespace splitworksheet
{
    class Program
    {
        static void Main(string[] args)
        {
            //Workbook インスタンスを作成する 
            Workbook originalBook= new Workbook();

            //「sample.xlsx」を読み込む
            originalBook.LoadFromFile("sample.xlsx");

            //最初のワークシートを取得する
            Worksheet sheet = originalBook.Worksheets[0];

            //タイトル行を取得する
            CellRange headerRow = sheet.Range[1, 1, 1,5];

            //2つのセル範囲を取得する
            CellRange range1 = sheet.Range[2, 1, 6, sheet.LastColumn];
            CellRange range2 = sheet.Range[7, 1, sheet.LastRow, sheet.LastColumn];

            //新しいWorkbook インスタンスを作成する
            Workbook newBook1 = new Workbook();

            //最初のワークシートを取得する
            Worksheet newSheet1 = newBook1.Worksheets[0];

            //タイトル行とRange1をそのワークシートにコピーする
            sheet.Copy(headerRow, newSheet1.Range[1, 1]);
            sheet.Copy(range1, newSheet1.Range[2, 1]);

            //元のワークブックから列幅を新しいワークブックにコピーする
            for (int i = 0; (i < sheet.LastColumn); i++)
            {
                newBook1.Worksheets[0].SetColumnWidth(i + 1, sheet.GetColumnWidth(i + 1));
            }

            //新しいワークブックをExcelファイルに保存する
            newBook1.SaveToFile("生産部.xlsx", ExcelVersion.Version2016);

            //別の新しいWorkbook インスタンスを作成する
            Workbook newBook2 = new Workbook();

            //最初のワークシートを取得する
            Worksheet newSheet2 = newBook2.Worksheets[0];

            //タイトル行とRange2をそのワークシートにコピーする
            sheet.Copy(headerRow, newSheet2.Range[1, 1]);
            sheet.Copy(range2, newSheet2.Range[2, 1]);

            //元のワークブックから列幅を新しいワークブックにコピーする
            for (int i = 0; (i < sheet.LastColumn); i++)
            {
                newBook2.Worksheets[0].SetColumnWidth(i + 1, sheet.GetColumnWidth(i + 1));
            }

            //新しいワークブックを別のExcelファイルに保存する
            newBook2.SaveToFile("IT部門.xlsx", ExcelVersion.Version2016);

        }
    }
}

Imports Spire.XLS

Namespace splitworksheet
    Class Program
        Private Shared Sub Main(ByVal args() As String)
            'Workbook インスタンスを作成する 
            Dim originalBook As Workbook = New Workbook

            '「sample.xlsx」を読み込む
            originalBook.LoadFromFile("sample.xlsx")

            '最初のワークシートを取得する
            Dim sheet As Worksheet = originalBook.Worksheets(0)

            'タイトル行を取得する
            Dim headerRow As CellRange = sheet.Range(1, 1, 1, 5)

            '2つのセル範囲を取得する
            Dim range1 As CellRange = sheet.Range(2, 1, 6, sheet.LastColumn)
            Dim range2 As CellRange = sheet.Range(7, 1, sheet.LastRow, sheet.LastColumn)

            '新しいWorkbook インスタンスを作成する
            Dim newBook1 As Workbook = New Workbook

            '最初のワークシートを取得する
            Dim newSheet1 As Worksheet = newBook1.Worksheets(0)

            'タイトル行とRange1をそのワークシートにコピーする
            sheet.Copy(headerRow, newSheet1.Range(1, 1))
            sheet.Copy(range1, newSheet1.Range(2, 1))

            '元のワークブックから列幅を新しいワークブックにコピーする
            Dim i As Integer = 0
            While (i < sheet.LastColumn)
                newBook1.Worksheets(0).SetColumnWidth(i + 1, sheet.GetColumnWidth(i + 1))
                i += 1
            End While

            '新しいワークブックをExcelファイルに保存する
            newBook1.SaveToFile("生産部.xlsx", ExcelVersion.Version2016)

            '別の新しいWorkbook インスタンスを作成する
            Dim newBook2 As Workbook = New Workbook

            '最初のワークシートを取得する
            Dim newSheet2 As Worksheet = newBook2.Worksheets(0)

            'タイトル行とRange2をそのワークシートにコピーする
            sheet.Copy(headerRow, newSheet2.Range(1, 1))
            sheet.Copy(range2, newSheet2.Range(2, 1))

            '元のワークブックから列幅を新しいワークブックにコピーする
            Dim i As Integer = 0
            While (i < sheet.LastColumn)
                newBook2.Worksheets(0).SetColumnWidth(i + 1, sheet.GetColumnWidth(i + 1))
                i += 1
            End While

            '新しいワークブックを別のExcelファイルに保存する
            newBook2.SaveToFile("IT部門.xlsx", ExcelVersion.Version2016)
        End Sub
    End Class
End Namespace