Look up a specific record in Data File and display in UserForm ListBox

Sometimes, I bite off more than I can chew and this is one of those times.
I have an Issue Log where I keep incoming calls recorded. When a store calls in I wanted to be able to look at all the "logged calls" for that store. I found the code below that helps in doing some of that. Once I have selected the store number in the ComboBox and execute through the CommandButton the ListBox fills out.
The drawback is this only gives me a single line item, and invariably there's more than just one issue in the logbook for a particular store.
How can I change this up a little more to enable it to find multiple records?

 Dim rngToSearch As Range
    Dim rngToFind As Range
    Dim valToFind As Variant
    Dim arrClearList()
    
    valToFind = ComboBox1.Value 'Edit ComboBox1 to your ComboBox name
    
    With Worksheets("Data")
        Set rngToSearch = .Columns("A")
    End With
    Set rngToFind = rngToSearch.Find(What:=valToFind, _
            LookIn:=xlFormulas, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False)
            
    If Not rngToFind Is Nothing Then
        
        'Call ClearList(Me.ListBox1)     'Optional to clear existing list
        
        ListBox1.AddItem
        
        With ListBox1
            .List(.ListCount - 1, 0) = rngToFind.Value  'ID Col A
            .List(.ListCount - 1, 1) = rngToFind.Offset(0, 0).Value 'Store #
            .List(.ListCount - 1, 2) = rngToFind.Offset(0, 1).Value 'Call Date
            .List(.ListCount - 1, 3) = rngToFind.Offset(0, 2).Value 'Build By Date
            .List(.ListCount - 1, 4) = rngToFind.Offset(0, 4).Value 'Build Status
            .List(.ListCount - 1, 5) = rngToFind.Offset(0, 13).Value 'Store Contact
            .List(.ListCount - 1, 6) = rngToFind.Offset(0, 11).Value 'PTS #
            .List(.ListCount - 1, 7) = rngToFind.Offset(0, 12).Value 'SOW #
            
        End With

    Else
        MsgBox valToFind & " not found in worksheet."
    End If

Hello
I have often used the Advanced filter to get the data then fill the list box from that but without seeing some sample data it's difficult to give an example. If you could upload a non-sensitive sample file it would help the forum members to assist.

DBY

Lowe's Shed Hotline Logs for ExcelForum.xlsmDBY should have known better than to send without the attachment... thanks for the reminder.

See the attached amended file. It uses an advanced filter to filter the selected Store No. and creates a dynamic named range which becomes the List Box row source. On the Data Sheet the code uses Current Region to look for the data if you add new lines but you need to keep empty space around the data table to use this.

DBY

DBY... worked like a charm! Thanks a lot!