VBA code not pulling info on first occurance only

Hi all, I'm having issues with a VBA. I am looking up data in cell L1, compared to col B, then bringing the data from matching rows, col E. Problem is that it pulls the data from col E pastes in col M, gives row number in col N, and col O is supposed to show col I. This works for everything BUT O1 stays blank. The rest of col O populates, but not O1

    Dim c As Range, r As Long, addr
    Set c = Columns("B").Find(Range("L1").Value, lookat:=xlWhole, MatchCase:=False)
    If c Is Nothing Then
    Unload Me
    MsgBox "Could not find a date for the requested name."
    Exit Sub
    Else
    If Not c Is Nothing Then
        addr = c.Address
        r = Cells(Rows.Count, "M").End(xlUp).Row
        If r <> 1 Then r = r + 1
        Cells(r, "M").Value = Cells(c.Row, "E").Value
        Cells(r, "N").Value = c.Row
        r = r + 1
        Do
            Set c = Columns("B").FindNext(c)
            If Not c Is Nothing Then
                If addr <> c.Address Then
                    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
                End If
            End If
        Loop While addr <> c.Address And Not c Is Nothing
        
End If
End If

YES! Thank you very much!