# get the first table
                my $table = $Word->ActiveDocument->Tables(1);
                
                for($row=1;$row<3;$row++)
                {
                for($col=1;$col<3;$col++)
                {
                my $text = $table->Cell($row,$col)->Range->{Text};
$Sheet->Cells($row,$col)->{'Formula'}=$text;     
}