Fill Combobox

[urobee]

Hy, I have a combobox i want to it fill from a dynamic range.
I can fill the combobox with all the data from the range but I don't want to show the rows where the column U has a cell with value.
(I need to expand the code below to show only the rows where a cell in column U is empty)


Column U has a dynamic range: [d_reportlist]


Here is the original code:

Private Sub Combobox_fill()

    Dim i As Integer
    Dim c As Range
    Dim strSeparator As String
    
    For Each c In shData.[d_IDList].Cells
        With c
            For i = 1 To .Cells.Count
                If .Offset(, 8).Value = 0 Then
                    strSeparator = " * "
                Else
                    strSeparator = " | "
                End If
                
                If Len(.Offset(, 1).Value) > 13 Then
                    cbxPN.AddItem Format(.Value, "00000") & strSeparator & Left(.Offset(, 1).Value, 13) & strSeparator & .Offset(, 2).Value
                Else
                    cbxPN.AddItem Format(.Value, "00000") & strSeparator & .Offset(, 1).Value & String(13 - Len(.Offset(, 1).Value), " ") & strSeparator & .Offset(, 2).Value
                End If
            Next i
        End With
    Next c
End Sub

Thank You for Your help!