Выполнение математики на столбцах таблицы

Мне поручено «оптимизировать» таблицу. У меня есть код, который извлекает данные из файла csv, выгружает его в книгу, а затем создает таблицу и выполняет некоторые другие данные с данными. Мне интересно, есть ли способ выполнить, допустим, простое разделение на таблицу, только ссылаясь на заголовки.

пример:

Range("SurveyStaging[[Central Bandwidth Values]:[Bandwidth Values]]").Value = Range("SurveyStaging[[Central Bandwidth]:[Bandwidth]]").Value 

Однако работает отлично:

 Range("SurveyStaging[District]").Value = Range("SurveyStaging[Central Bandwidth]").value/Range("SurveyStaging[School Bandwidth]").Value 

Выбрасывает несоответствие типов.

Любая идея о том, как это сделать, без необходимости перебирать каждую ячейку в столбцах?

Заранее благодарю вас за любую помощь.

Вам придется адаптировать строки и столбцы для собственного кода, но я думаю, что это сработает.

Он не использует цикл; он управляет всем диапазоном сразу.

 Dim count1 As Double count1 = 1 While Range("A" & CStr(RowNumber + count1)).Value <> "" DoEvents count1 = count1 + 1 Wend count1 = count1 - 1 'the count is so that it takes an accurate number of rows to manipulate Range("B2", "B" & CStr(count1)) = "=(RC[-1]/RC[-3])" ' you will have to put in whatever columns you'll be dividing with their NUMBER 
Давайте будем гением компьютера.