【ExcelVBA　入力規則】

まず、それぞれのシートには既に入力規則が設定されているとします。

（仮に設定されていないとすると、後から設定するにはセルが指定されていないので）

それぞれのシートの入力規則は ＝シート名 の名前を利用します。

それで、動的に名前の範囲を変更する為にマスターシートのチェンジイベントに次のコードを記入します。

（ＶＢＥでプロジェクトエクスプローラの画面でSheet?(マスタ)をクリックして開くエリアです）

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lastRow As Long
    Dim i As Long
    Dim startRow As Long
    Dim nc As Integer
    
    '名前の削除
    nc = Names.Count
    For i = 1 To nc
        Names(1).Delete
    Next
    
    With Worksheets("マスタ")
        lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        startRow = 2
        For i = 3 To lastRow + 1
            If .Cells(i - 1, 1).Value <> .Cells(i, 1).Value Then
                If .Cells(i - 1, 1).Value <> "" Then
                    Names.Add Name:=.Cells(i - 1, 1).Value, RefersTo:=.Range(Cells(startRow, 2), Cells(i - 1, 2))
                End If
                startRow = i
            End If
        Next
    End With
End Sub

オーバーヘッドではありますが、コードではシートが変化するたびに名前を定義しなおします。

Ａ列の名前は連続してあることが前提です。途中で切れたり飛び飛びで同じ名前が２箇所以上あると最後のまとまりが名前の範囲となります。