my $excel = Win32::OLE::Strict->new('Excel.Application', 'Quit');
my $workbook = $excel    -> Workbooks -> Open("$templfile");
my $sh    = $wb -> Worksheets(1) -> {Name};
$sh -> Activate;

my $srcrange = 'A2:B2';
my $targrange = 'Range("A2:B17")';


$sh -> Range("$srcrange ") -> Select;
my $xlfill = 'xlFillDefault';
$excel -> Selection -> AutoFill({Destination => $targrange, Type => $xlfill});