[V3n0m]

Можно выделить диапазон, в верхней левой ячейке которого будет формула, потом Edit > Fill > Series > Autofill
Еще более упростить можно, если приделать кнопку со примерно такой процедуркой:

  ActiveSheet.Select
          Selection.DataSeries Rowcol:=xlColumns, Type:=xlAutoFill, _
          Date:=xlDay, Trend:=False

Будет заполнять диапазон формулой из верхней левой ячейки, соответственно типу ссылки будет настраиваться