Converting Table cells to block arrows (again)

Hello again, everyone

I posted a while back asking how to change individual table cells to
block arrows.
I've managed to do it "manually", but need to automate the process so
that i can select a table, run a macro, and have it replace all the
cells in the first row with block arrows.

Here's how I'm doing it:

- Select the table;
- In the Draw menu, select Ungroup
- Individually select and delete the various horizontal and vertical
lines;
- I'm left with a bunch of invisible rectangles
- Select the rectangles
- Aplly line weight 1
- Select all the rectangles in the first row
- In the Draw menu, change autoshape, block arrows, pentagon
- Select the arrows and increase their width slightly
- Aplly fill color to arrows
- Select everything, and regroup

Is there a way to automate this tasks so that I can insert a table and
convert it to a "flow diagram" with just one click?

(I'm an absolute newbie)

Thanks a lot

Luis