Dynamic named ranges

[Dorward]

I have looked around and there are plenty of threads about this topic, but nothing really for what I'm looking for.

Essentially, I have a list of tasks. Each week, I am pasting a new set of tasks into the same sheet. However, many of the values are the same (task headers). These headers are not specified in any real way other than being bolded.
What I need though is from Task X to Task Y-1 to be named Range X. Task Y to Task Z-1 is named range Y. I can use static cell references because the cell reference for those tasks changes.

Any idea how to help me out with this?
Cheers.

 

[Dorward]

"PMO" will only appear once, but, "*PMO*" maybe appear numerous times.

Thanks!

 

[Joe4]

But in determining where ranges should start/stop, I am looking for "PMO", not "*PMO*", right?

 

[Joe4]

If my previous assumption is correct, then this code does what you are asking for:

Sub myRangeName()
 
    Dim myLookupRange As Range
    Dim myFirstCell As Long
    Dim myLastCell As Long
    Dim myLastRow As Long
    Dim cell As Range
    Dim myRangeName As String
    Dim myNextRangeName As String
    Dim myNamedRange As String
    Dim myCount As Long
    Dim i As Long
        
'   Specify range lookup list is found in
    Set myLookupRange = Range("M1:M4")
    myCount = myLookupRange.Count
    
'   Find last row in column A
    myLastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Get start cell
    myRangeName = myLookupRange(1, 1).Text
    Range("A1:A" & myLastRow).Find(What:=myRangeName, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    myFirstCell = ActiveCell.Row
'   Loop through lookup range finding addresses
    For i = 1 To myCount
        myNextRangeName = myLookupRange(i + 1, 1).Text
'   Look for next range name
        If i = myCount Then
            myLastCell = myLastRow
        Else
            Range("A" & myFirstCell & ":A" & myLastRow).Find(What:=myNextRangeName, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False).Activate
            myLastCell = ActiveCell.Row
        End If
'   Name range (may need to adjust sheet name)
        myNamedRange = "=Sheet1!$A$" & myFirstCell & ":$A$" & myLastCell - 1
        ActiveWorkbook.Names.Add Name:=myRangeName, RefersTo:=myNamedRange
'   Reset variables
        myRangeName = myNextRangeName
        myFirstCell = myLastCell
    Next i
    
End Sub