Add condition to this code

Hi,

The following takes from Range("B17:B4516") the unique values avoiding blank cells and displays them in a dropdownlist of a userform:

Dim v, e
With Sheet1.Range("B17:B4516")
    v = .Value
End With
With CreateObject("scripting.dictionary")
    .comparemode = 1
    For Each e In v
    If e = "" Then
    Else
        If Not .exists(e) Then .Add e, Nothing
    End If
    Next
    If .Count Then Me.Lista2.List = Application.Transpose(.keys)
End With

What I am looking for but cannot manage to do is to put an extra condition. This condition is to avoid also showing data from Range("B17:B4516") when the value from Range("J17:J4516") is higher than 5.

Any help would be much appreciated.

Kind regards,