Find Last Row with data and enabled Sorting Macro

Hi to all.Hoping you have a good day.I would like seek help or advices regarding my program. Please see attachment to visualize my problem.

First I have 4 column A to D. that reviews all the tabs name in a workbook,it was reviewed based on their position. I would like to sort out the value of column A after the word "Template". I can record a macro and since my program is to review all tabs in a workbook my last tab was "Template" and If I unhide one tab "template" will be include in sorting.How can i determine the row "template" and after that I perform the sorting?

Here is my recorded macro. In my sample file the Worksheet is "Sheet1",my original worksheet named Index.Thanks for the big help.

 ActiveWorkbook.Worksheets("Index").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Index").Sort.SortFields.Add Key:=Range("A16"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Index").Sort
        .SetRange Range("A16:A100")
        .Header = xlNo
        .MatchCase = True
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
       .Apply
     
      End With