Function SumUniqueValues(DataRng As Range)

With Application.WorksheetFunction
    DataArray = DataRng.Value
    If UBound(DataArray, 1) = 1 Then DataArray = .Transpose(DataArray)
    DataArray = .Transpose(DataArray)
    Do Until UBound(DataArray) = -1
        FilterValue = DataArray(LBound(DataArray))
        DataArray = Filter(DataArray, FilterValue, False)
        SumUniqueValues = SumUniqueValues + FilterValue
    Loop
End With

End Function