Listbox Records Showing As Blank

I have the following bit of code that runs and is working MOSTLY correct. The code looks at the value of the combobox, loops through a range, finds the values in the assigned range that match the value in the combobox, and then adds the items to the listbox in multiple columns.

As I said, the code is MOSTLY working correct. Everything works, okay, except that only the first records shows up.

It's counting correctly, as I also have a label that does a listcount that is displaying the correct number. The problem is, that all other 95 records (the value I am searching in the combobox I have confirmed relates to 96 records) except the first one show as blank.

Code:

Sub cmbVolumeSKUs_Change()Dim r As Range, rAll As Range
Dim sTerm As String
Application.ScreenUpdating = False
sTerm = frmL.cmbVolumeSKUs
With Sheets("Volume Pricing")

[Code]...

EDIT: After reviewing the code line by line, it looks as though each new record is actually overwriting the first row. The record count is accurate, but each record found is being overwritten by the next. How can I get by this?