Hello jwlamb,

This should solve your problem.
    Dim addr    As String
    Dim c       As Range
    Dim r       As Long
    
        Set c = Columns("B:B").Find(Range("L1").Value, , xlValues, xlWhole, xlByRows, xlNext, False, False, False)
        If c Is Nothing Then
            Unload Me
            MsgBox "Could not find a date for the requested name."
            Exit Sub
        End If
        
            addr = c.Address
            r = Cells(Rows.Count, "M").End(xlUp).Row
            
            If r > 1 Then r = r + 1
            
            Do
                Cells(r, "M").Value = Cells(c.Row, "E").Value
                Cells(r, "O").Value = Cells(c.Row, "I").Value
                Cells(r, "N").Value = c.Row
                r = r + 1
                Set c = Columns("B:B").FindNext(c)
                If c Is Nothing Then Exit Do
                If c.Address = addr Then Exit Do
            Loop