my $wsheet = $wbook->Worksheets(1);
my $last_row_from_OLE = $wsheet->{UsedRange}->Rows()->Count();
my $last_col_from_OLE = $wsheet->{UsedRange}->Columns()->Count();
my $range = $wsheet->Range($wsheet->Cells(1,1), $wsheet->Cells($last_row_from_OLE, $last_col_from_OLE) );
$range->Copy();
my $xlPasteColumnWidths = 8;
$range->PasteSpecial({Paste => $xlPasteColumnWidths});