my $MyRange = $Word->ActiveDocument->Content;
$Word->ActiveDocument->Tables->Add({
   Range => $MyRange,
   NumRows => 5,
   NumColumns => 4,
});