Just remove device from this line

# $worksheet2->write(++$row2,$col2,substr($device,0,3).'-'.$bro);  
$worksheet2->write(++$row2,$col2,$bro);
[download]

Thanks for your quick responses. Device keys are still coming with the Chart and this should be like below Browser1 Browser 2 Browser 3 Computer but its coming that not is required. Please check below Computer Browser1 Browser2 Browser3 Computer How I can remove that? but its required in the Chart table.

'Please check below'

Formatting advice is displayed each time you post, you've just got everything on one line. You're very lucky poj is so patient and doing your work for you. Tutorials->PerlMonks for the Absolute Beginner/How do I post a question effectively?.

Are you saying you want the device totals in the pivot table but not plotted on the chart. That would mean having non-contiguous ranges like this

$chart->add_series(
    categories      => '=(Sheet1!$A$1:$A$9,Sheet1!$A$14:$A$25)',
    values          => '=(Sheet1!$B$1:$B$9,Sheet1!$B$14:$B$25)',
);
[download]

and that would be complicated. It would also require version 0.76 or above of Excel::Writer::XLSX which I don't have. It would be simpler to create a separate table without device totals for the chart.

poj