Formatting tables in powerpoint using VBA

Question

In word, I have been creating a macro that formats an existing table. The dimension of the table can be anything. The formatting looks like this:

Table

My VBA code