В ячейке задана формула с авсолютным адресом (=A1).
Как программно, в цикле присвоить другим ячейкам эту формулу, но смещая цифру при номере.
Т.е. С5=A1 G4=A2 D5=A3 ......?
Я это сделал криво через разделение формулы на цифры и символы...не красиво

Прошу прощения, я не верно выразился про обсолютный, но задачу это не меняет.

For NumCel = 1 To 8
str = RangeTVSName.Cells(y_Offset(NumCel), x_Offset(NumCel)).Formula 'берем формулу (ссылку)
L = Len(str)
Sw = False

For i = 1 To L ' поиск сивола и цифры
If Mid(str, i, 1) >= "0" And Mid(str, i, i) <= "9" Then
strAdr = Left(str, i - 1)
volAdr = Int(Right(str, L - i + 1)) '
Sw = True
Exit For
End If
Next i

For n_tvs = 1 To 163
If Sw = True Then
str = strAdr & (volAdr + n_tvs) ' добавляю номер цикла
Else
str = ""
End If
RangeStart.Offset(OffsetY(n_tvs), OffsetX(n_tvs)).Cells(y_Offset(NumCel), x_Offset(NumCel)).Formula = str
Next n_tvs
Next NumCel

Закономерность. Очень похожа на расположение сот у пчел. Закономерность (смещения x. y)задется файлом.

Задавать эту формулу в смещение или задавать ее же в абсолютный адрес - трудоемкость ОДИНАКОВАЯ.
А вот здесь Вы далеко не правы.
Пример: Порядок опроса датчиков по объему задается случайным числом. Датчиков порядка 2000.
Я не готов этот процесс описывать формулой. -:)