Установите Excel PageSetup.CenterHeader с переменной / счетчиком

Question

В моем файле xlsx есть одна страница с этими полями Дата, Время, Перевозчик, Место назначения, упорядоченные по дате / времени. Каждый раз при изменении даты я вставляю HPageBreaks

Как напечатать заголовок по центрус правильными данными?Я попробовал 1K безо всяких ограничений, последние должны установить одну переменную с первым днем ​​в моем Printarea.range минус один день, тогда заголовок будет переменной data плюс номер страницы, очевидно, это не работает.Можно ли делать то, что я думал, «любое предложение?»

Titledata = 1th date to print - 1
With ActiveSheet.PageSetup
TitleData = TitleData + 1
    .CenterHeader = "&C Elenco servizi del " & Format(TitleData + "&P", "dd-mmm")
    .Orientation = xlLandscape
    .PrintArea = rgn.Address
    .PrintTitleRows = ActiveSheet.Rows(1).Address
    .Zoom = False
    .FitToPagesTall = False
    .FitToPagesWide = False
End With