Okay, this will give you the index of the column within the table itself:
Code:
Debug.Print Sheet1.ListObjects("oTable").ListColumns("Header1").Index
This code will give you the column number within the worksheet:
Code:
Debug.Print Sheet1.ListObjects("oTable").ListColumns("Header1").Range.Column