Overloads Sub Copy( _
   ByVal destination As IRange _
) 

void Copy( 
   IRange destination
)

using System;
 
namespace SpreadsheetGear.CopySample
{
    class Program
    {
        static void Main(string[] args)
        {
            // Create a workbook
            SpreadsheetGear.IWorkbook workbook = SpreadsheetGear.Factory.GetWorkbook();
            SpreadsheetGear.IWorksheet worksheet = workbook.Worksheets[0];
            SpreadsheetGear.IRange cells = worksheet.Cells;
 
            // Put some data in the workbook.
            cells["A2"].Value = "Corn";
            cells["A3"].Value = "Wheat";
            cells["A4"].Value = "Barley";
            cells["B1"].Value = "Jan";
            cells["C1"].Value = "Feb";
            cells["D1"].Value = "Mar";
            cells["B2:D4"].Formula = "=RAND()*10000";
 
            // Make a copy in the same workbook - the destination will be
            // automatically sized to fit the source.
            cells["A1:D4"].Copy(cells["A6"]);
 
            // Create a 2nd worksheet.
            SpreadsheetGear.IWorksheet worksheet2 = workbook.Worksheets.Add();
 
            // Copy from the first worksheet to the 2nd.
            cells["A1:D4"].Copy(worksheet2.Cells["A1"]);
 
            // Save to disk.
            workbook.SaveAs(@"c:\CopySample.xls", FileFormat.XLS97);
        }
    }
}

Imports System
Imports SpreadsheetGear
 
Namespace SpreadsheetGear.CopySample
    Class Program
        Public Overloads Shared Sub Main()
            ' Create a workbook
            Dim workbook As IWorkbook = Factory.GetWorkbook()
            Dim worksheet As IWorksheet = workbook.Worksheets(0)
            Dim cells As IRange = worksheet.Cells
 
            ' Put some data in the workbook.
            cells("A2").Value = "Corn"
            cells("A3").Value = "Wheat"
            cells("A4").Value = "Barley"
            cells("B1").Value = "Jan"
            cells("C1").Value = "Feb"
            cells("D1").Value = "Mar"
            cells("B2:D4").Formula = "=RAND()*10000"
 
            ' Make a copy in the same workbook - the destination will be
            ' automatically sized to fit the source.
            cells("A1:D4").Copy(cells("A6"))
 
            ' Create a 2nd worksheet.
            Dim worksheet2 As IWorksheet = workbook.Worksheets.Add()
 
            ' Copy from the first worksheet to the 2nd.
            cells("A1:D4").Copy(worksheet2.Cells("A1"))
 
            ' Save to disk.
            workbook.SaveAs("c:\CopySample.xls", FileFormat.XLS97)
        End Sub 'Main '
    End Class 'Program
End Namespace 'SpreadsheetGear.CopySample