Delete multiple columns in a Table

This code works to delete multiple contiguous columns in a DataRange or in a Table.

ActiveSheet.Range("A:C").EntireColumn.Delete Shift:=xlToLeft

This code works to delete multiple discontiguous columns in a DataRange, but does NOT work on my Table (if I convert it to a range it works fine):

ActiveSheet.Range("A:C,E:G").EntireColumn.Delete Shift:=xlToLeft

How do I need to change the second code to delete multiple discontiguous columns in a Table? The actual columns I want to delete are as shown below, and BA is the last column of my table:

Activesheet.Range("A:C,E:G,J:Q,U:AB,AD:AH,AJ:AR,AU:BA").Delete Shift:=xlToLeft