'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?.

Yes ..you are correct! Thanks for your patients ..Would it be possible to get answer on my last question?

I tend to think of poj as more of a doctor than a patient.

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.

In my Case D is the Device data but having more than 1200 rows and E is Browser data having more than 1200 rows. Please check below code snippet. and suggest if this can be appropriate in my Case?

my $chart = $workbook1->add_chart( type => 'column', embedded => 1  );
$chart->set_size( width => 1000, height => 500 );
#my $col = 'B';
$col2 = 0;

for my $app (sort keys %app){
   ++$col2;
#  $chart->add_series(
#    name       => $app,    
#    categories => ['Summary',1,$row2,0,0],
 #   values     => ['Summary',1,$row2,$col2,$col2]
 # );
  $chart->add_series(
    categories      => '=(Data!$D$1:$D$9,Data!$D$14:$D$25)',
    values          => '=(Data!$E$1:$E$9,Data!$E$14:$E$25)',
);
}

$chart->set_title ( name => 'Results of sample analysis' );
$chart->set_x_axis( name => 'Device/Browser' );
$chart->set_y_axis( name => 'User Count'  );

# add chart

$worksheet2->insert_chart( 26, 1 , $chart);


$row2    = 48;
$col2     = 4;
my $width = 3;
for my $device (@device){
  my $text = $workbook1->add_shape( type => 'rect', text => $device, l
+ine=>1, bold => 1 );
  $worksheet2->insert_shape( $row2, $col2, $text );
  $col2 += $width;
}
    $workbook1->close();
[download]