Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет - VBA

Формулировка задачи:

Запускаю с листа "l1" построчно работает, но мне нужно, чтобы заполнялись столбцы, начиная со столбца с1. Не могу понять, как это сделать.

Sub FullDate()
Dim vItem, avArr, li As Long
ReDim avArr (1 To Rows.Count, 1 to 1)
With New Collection
On Error Resume Next
For Each vItem In Range("B2", Cells(Rows.Count,2).End(xlUp)).Value
.Add vItem, CStr(vItem)
if Err = 0 Then
li = li + 1: avArr(li, 1)= vItem
else: Err.Clear
End If
Next
End With
 
If li Then Worksheets("l3").[c1].Resize(li).value = avArr
end sub

Решение задачи: «Выборка уникальных дат из строк листа "l1" и помещение их в лист "l3", Не получается. На листе "l3" вставляет»

textual
                            Листинг программы 
                        

                             li = li + 1:
 For i = 1 To 5
     avArr(1, (li - 1) * 5 + i) = vItem
 Next
                        