С помощью этой строки вы выбираете все ячейки таблицы1, включая заголовки:
ActiveSheet.ListObjects("Table1").Range.Select
Мне нужно выбрать все объекты, кроме заголовков.
Select
DataBodyRange
Использовать ActiveSheet.ListObjects("Table1").DataBodyRange.
ActiveSheet.ListObjects("Table1").DataBodyRange