VBA = Применение динамических значений к строкам

Question

Я новичок в сценариях VBA. Хотя я мог успешно написать простой код, используя Do...While для обновления нескольких строк в одном столбце, я не могу применить логику к различным диапазонам строк / столбцов.

Не могли бы вы рассказать, как оптимизировать скрипткоторая будет выполнять одну и ту же операцию для разных ячеек

Dim I as Integer, Start as Integer
I = 5

Do while I < 250
    Start = Cells(I, 11).value * Cells (I,12).value

    If Cells (I,8).value = "Professional services" then
        Cells (I,52).value = Start * 1.13
    Else
        Cells (I, 52).value = Start
    End if

    I = I + 1
Loop

Примечание. Я хочу назвать ячейку "52" для разных столбцов (например, 52, 53, 54 и т. д.)