Auto popluate area name from unknown number of sheets

Dear forum.
Wondering if someone could posibily help me out.
I found a downloadable workbook from J&R Excel Solutions (Thank you J&R if you're out there ). It takes care of the first solution I was looking for which was to be able to create new worksheets from a template (hidden within the workbook). Hoping now that there is an easy solution for the second part.
Which is...I am antisapating modifying the received workbook to suit my application, basically just using the macro for creating the new worksheets, and the concept of the eg '=SUM(Top:Bottom!B2) type formula where useful.
However in addition to the 'collecting' of numbers in the summary sheet, as this particular workbook's 'Summary' worksheet is set up to do, I would like to be able to create a type of list on the summary sheet automating listing certain details on all the worksheets.
For example, please see attached workbook. Here I have added 'Area Name' in the hidden template in cell A15. Then on the Summary sheet I have added 'List of Areas' in cell D18.
I would like to be able to have formula (or some sort of solution) for cells D19+ that would list all the areas. Since the number of areas is unknown, I wouldn't know how to set up a 'dynamic' type formula to accomplish this. The simplier the solution the better as I am operating with minimal toolset when it comes to excel and hoping to get a solution that I would be able to manipulate to achieve my needs.
Any advise would be great. Thank you.

What is an area? I would expect your sample workbook to actually demonstrate what you're asking. Sample data in the sheets, sample list manually created in D19+, etc. Help us to see what you're talking about.

I would change your existing macro to this to:
1) Put the sheets in the correct order as you add them
2) Add the List of Areas

At the beginning of a new project you need only have D18 with the List of Areas title, then use the ADD NEW SHEET button to add your first sheet, the macro will add a sheet and put in the first entry in the areas, then continue.

Private Sub cmbAdd_New_Sheet_Click()
Dim iWsCnt As Long
Dim NR As Long

    iWsCnt = ThisWorkbook.Worksheets.Count
    NR = Sheets("Summary").Range("D" & Rows.Count).End(xlUp).Row + 1
    'hide operation from user
    Application.ScreenUpdating = False

    With ThisWorkbook.Worksheets("Template")
        .Visible = xlSheetVisible
        .Copy After:=Worksheets(iWsCnt - 1)
        .Visible = xlSheetVeryHidden
    End With

    With ActiveSheet
        'name the new sheet, you may need to adjust the -4 to -5 or whatever to get the count correct
        .Name = "Page" & iWsCnt - 4
        Sheets("Summary").Range("D" & NR).FormulaR1C1 = "='" & .Name & "'!R9C2"
        Sheets("Summary").Range("E" & NR).FormulaR1C1 = "='" & .Name & "'!R19C2"
        MsgBox "New sheet " & .Name & " added"
    End With
    
    Sheets("Summary").Activate
    Application.ScreenUpdating = True
    
End Sub