$FALSE = 0;
$TRUE = 1;

##</code><code>##

my $Excel = &openExcel();
my $filename = "<filename>";
my $book = &openBook($Excel, $filename);
my $ClosedSheet = $book->Worksheets("Closed");

##</code><code>##

my $closedRows = $ClosedSheet -> UsedRange -> Find({What => "*", SearchDirection => xlPrevious, SearchOrder => xlByRows}) -> {Row};

##</code><code>##

$range = "A1:I" . $closedRows;
		my $closedRange = $ClosedSheet->Range($range);
		my $closedPivot = $ClosedSheet->PivotTableWizard(1, $closedRange,  $ClosedSheet->Cells($closedRows+2,1), "Closed SPR PivotTable");
		# Set pivot fields...
			$closedPivot->AddFields("date_fixed");
			$closedPivot->PivotFields("Product")->{Orientation} = 4; # 4=xlDataField
		# Group by days
			#TODO
			my $thetargetcell = $ClosedSheet->Cells($closedRows+3, 1)->{Value};
			print "target val: " . $thetargetcell . "\n";
			$ClosedSheet->Cells($closedRows+3, 1)->Group( {Start => $TRUE,  End => $TRUE, By => 1, Periods => [$FALSE, $FALSE, $FALSE, $TRUE, $FALSE, $FALSE, $FALSE]});

##</code><code>##

Range("A460").Select
    Selection.Group Start:=True, End:=True, By:=1, Periods:=Array(False, _
        False, False, True, False, False, False)