# Merged areas
foreach my $area ( @{ $oWkS->{MergedArea} } ) {

    my $cell = $oWkS->Cell($area->[0], $area->[1]);
    my $oFmtN = $oWrEx->addformat();
    $oFmtN->copy($hFmt{$cell->{FormatNo}});
    $oWrS->merge_range( @$area, $cell->{Val}, $oFmtN, 0);
}