Как отобразить правильный номер страницы в строках для повтора в верхней части листа Excel, чтобы они адаптировались при печати на нескольких страницах

Question

У меня есть документ Excel, содержащий лист, охватывающий несколько страниц формата A4. Я настроил несколько строк для повторения сверху, которые действительно повторяются на каждой странице формата А4 при печати. Ячейка этих верхних строк содержит номер страницы и количество страниц. Я вычисляю количество страниц, используя сабвуфер VBA, вызываемый каждый раз, когда мы сохраняем документ Excel:

Sub Refresh_NumPages()
    NumPages = 0
    For i = 1 To ThisWorkbook.Sheets.Count
        If ThisWorkbook.Sheets(i).Visible = -1 Then
            j = ThisWorkbook.Sheets(i).PageSetup.Pages.Count
            NumPages = NumPages + j
        End If
    Next

    Worksheets("Sheet1").Cells(14, 5).Value = "Page 1/" & NumPages
End Sub

Проблема: номер страницы одинаков на каждой странице A4.

Вопрос: как можноЯ делаю номер страницы для адаптации, так же, как в заголовке Excel, но в этой конкретной ячейке

Пример: допустим, у меня есть лист, охватывающий 4 страницы (A4), на первой страницеячейка будет содержать 1/4, на второй странице ячейка будет содержать 2/4 и т. д.

Спасибо за ваши предложения