Hi Mack 10,
maybe this will help
How are you calling/using the function?

Option Explicit
Sub test()
'Function UNIQUEList2(InputRange As Range, Output As Range) As Variant
    Dim cl As Range
    Dim cUnique As Collection
    Dim cValue As Variant
    Dim count As Integer
    Dim delRange As Range
    Dim InputRange
    Dim Output
    Set cUnique = New Collection
    Set InputRange = Range("B1:B20")
    Set Output = Range("K1")
    For Each cl In InputRange    '.Cells
        If Len(cl) > 0 Then
            On Error Resume Next
            cUnique.Add cl, CStr(cl)
        End If
        On Error GoTo 0
    Next cl
    Set delRange = Range(Output, Output.Offset(InputRange.Rows.count, 1))
    '^ outputs "$AB$3:$AB2501" which is the range I want deleted.
    delRange.ClearContents
    For count = 1 To cUnique.count
        Output.Offset(count, 1).Value = cUnique(count)
    Next count
    Set InputRange = Nothing
    Set Output = Nothing
End Sub
'End Function