Select Code to Download

# Pardon the C-ish loop, it's late.
for (my $row = 1; $row <= 10; $row++) {
    $ws->Range("A$row")->Ungroup();
...
# or an alternate if you have an area:
# (cell addresses off the top of my head)
$ws->Range("A1:D46")->Ungroup();