VBA to update TOC

I've written a very simple VB Word macro to update the tables of
contents in a Word file but would like to extend this to include a
table of tables.

The document includes a Table each of Contents, Figures and Tables
that I want to be able to updated without the need to hit <ctrl>-A, F9
and then make the selection to update all table contents three times.

The macro below works for contents and figures but not for tables. Is
there a straightforward way to extend it to cover a table of tables...

VBA to update TOC