excel vba 有條件的提取不重覆值 求救!!

excel明細如下：


總表如下：


依年-月條件，提取不重覆值的進貨項目，寫進總表裡
小弟剛學習vba，只能試著google找了類似的程式，再試著加入年-月的條件讓他回傳，
但一直無法成功，程式碼如下，請教各位大大，條件年-月條件應該加到哪裡才適合呢?
Sub 取不重複值加條件()

Dim myList As New Collection, Cel As Range, itm, i As Integer

On Error Resume Next
For Each Cel In Sheets("資料明細").Range("b2:b999")
If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value) '判斷單元格內容是否為空
Next

On Error GoTo 0
i = 3
For Each itm In myList
Sheets("總表").Cells(i, "a") = Format(itm, "@")
i = i + 1
Next

'資料回傳完成後做排序
Sheets("總表").Range("a3:a999").Select
Selection.Sort key1:=Range("a3"), order1:=1, Header:=x1yes


End Sub