Create a row (or column) of non-duplicate values from a column containing duplicate values

I have a column with different dates which can repeat, how can I create a row (or another column it's not a problem) of unique (not repeating) values. Some kind of pivot table function.
PivotTable is not a solution (Maybe I will have to use it in macros but I want to avoid it, as I have reasons for it depending on the task). So, is there any other way to do this regrouping in VBA?
Here a solution for a predetermined number of values but for me it doesn't matter
Dim inputrow As Integer
Dim i As Double
For i = 11 To 12
For inputrow = 2 To 19
If ActiveSheet.Cells(inputrow, 4) <> ActiveSheet.Cells(3, i - 1) Then
ActiveSheet.Cells(3, i) = ActiveSheet.Cells(inputrow, 4)
Exit For
End If
Next inputrow
Next i