Ну, это довольно простой вопрос:
Имея имя столбца X, как узнать, что соответствует имени X + 1?
Вы можете использовать имя диапазона, как и обычный адрес.
Например:
Worksheets("Sheet1").Range("MyRangeName").Offset(0,1).Value 'If you need the value Worksheets("Sheet1").Range("MyRangeName").Offset(0,1).Address 'If you need the address