Rows("1:9").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=30
Range("A39").Select
Selection.Insert Shift:=xlDown


##</code><code>##

use strict "vars";
use OLE;
use Win32::OLE::Const "Microsoft Excel";
use Win32::OLE::Variant;
my($excel, $spsh_full, $workbook, $sheet, $selection);
#___ DEFINE EXCEL
$excel = CreateObject OLE "Excel.Application";
#___ MAKE EXCEL VISIBLE
$excel -> {Visible} = 1;
#___ OPEN EXISTING WORKBOOK
$spsh_full = <full path to spreadsheet>;
$workbook = $excel    -> Workbooks -> Open($spsh_full);
$sheet    = $workbook -> Worksheets('Quotation');
$selection = $sheet->Rows("1:9");
print "$selection\n";
$sheet->Range("A39")->$selection->Insert;