The following code works for each sheet in the workbook as written, however, if the user inserts a row on a given worksheet the remaining worksheets formula within the column containing start and end row text shift down over the "Start1Note" end row/"Start2Note end row string.
Ie if one row is inserted all successive worksheets go from
Note1Start
Formula
Formula
Formula
Note1Start

To:

Note1Start
Formula
Formula
Formula
Formula


Any ideas to correct would be appreciated. 

Dim Startrow As Integer, Endrow As Integer
    Dim sh As Worksheet
  
    'Const excludeSheets As String = "Data"
    Dim excludeSheets: excludeSheets = Array("Data")
        For Each sh In ThisWorkbook.Worksheets
          With sh
            If Not IsError(Application.Match(.Name, excludeSheets, 0)) Then

   
       'Ranges for filldown formulas
        Startrow = Range("A:A").Find(what:="Note1Start", After:=Range("A1")).Row
        Endrow = Range("A:A").Find(what:="Note1Start", After:=Range("A1"), searchdirection:=xlPrevious).Row
        .Range("A" & Startrow + 1 & ":A" & Endrow - 1).Formula = "=IF(RC[1]="""","""",R2C3&"" "" &R3C3&"" ""&R24C2  &"" ""&""Notes"")"
        .Range("H" & Startrow + 1 & ":H" & Endrow - 1).Formula = "=IF(RC[-6]<>"""",""Y"",""N"")"

        Startrow = Range("A:A").Find(what:="Note2Start", After:=Range("A1")).Row
        Endrow = Range("A:A").Find(what:="Note2Start", After:=Range("A1"), searchdirection:=xlPrevious).Row
        .Range("A" & Startrow + 1 & ": A" & Endrow - 1).Formula = "=IF(RC[1]="""","""",R2C3&"" "" &R3C3&"" ""&R54C2&"" ""&""Notes"")"
        .Range("H" & Startrow + 1 & ": H" & Endrow - 1).Formula = "=IF(RC[-6]<>"""",""Y"",""N"")"


     
           End If

        End With
         
    Next