Select Code to Download

use strict;
use warnings;
...
                                     $sht->Range($rngToTopLeft)->Colum
+n)->Address);
$rngIns->EntireRow->Insert;
$rngFrom->Copy($sht->Range($rngToTopLeft));