ResizeTableWidth.zip

Please see the attachment (the VBA codes inside)

I want to resize the second table width.
The problem is:
there seems to be no Tables(index).Width in Word VBA
I know there is PreferredWidth
But I want to resize the last column width only.

I have already written the codes to do so in the attached file.
But I wonder if there is a simpler way to do so in VBA.
Please take a look if you are interested.