AdvanceFilter выдает ошибку 1004, ошибка, определенная объектом

Question

Я получаю ошибку времени выполнения '1004': ошибка приложения или объекта, когда мой код попадает в строку расширенного фильтра.

Я попытался записать макрос, которыйработает, но когда я настраиваю диапазон на динамический, я начинаю получать ошибку.Я также попытался набрать его очень внимательно, следуя подсказкам.

Private Sub LogOffenders()
    Dim Month As Integer
    Dim SID1001 As Range
    Dim MonSID  As Range
    Dim SIDRowCount As Long
    Dim OffCol As Integer
    Dim LasMon As Range
    Dim UniOff As Long
    Dim UniCount As Long

    'Count row
    SIDRowCount = Worksheets("1001").Cells(Rows.Count, "C").End(xlUp).Row - 1
    OffCol = Int(Format(Date, "mm"))

    Set SID1001 = Worksheets("1001").Range("C2:C" & SIDRowCount)
    Set MonSID = Worksheets("OffLog").Range(Worksheets("OffLog").Cells(2, OffCol), Worksheets("OffLog").Cells(SIDRowCount, OffCol))

    If OffCol = 1 Then
        Set LasMon = Worksheets("OffLog").Range(Worksheets("OffLog").Cells(2, 12), Worksheets("OffLog").Cells(SIDRowCount, 12))
    Else:
        Set LasMon = Worksheets("OffLog").Range(Worksheets("OffLog").Cells(2, OffCol - 1), Worksheets("OffLog").Cells(SIDRowCount, OffCol))
    End If

    'copy SIDs to SID log.
        SID1001.Copy
        MonSID.PasteSpecial Paste:=xlPasteValues, operation:=xlPasteSpecialOperationNone, skipblanks:=False, Transpose:=False

    'Count number of unique SIDs in copied column
        LasMon.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Worksheets("OffLog").Range("P"), unique:=True  '**Code breaks here***
        UniCount = Worksheets("1001").Cells(Rows.Count, "P").End(xlUp).Row

End Sub

Я хочу скопировать уникальные значения в столбце P и затем подсчитать количество значений.

Я получаю сообщение об ошибке «1004»: ошибка приложения или объекта.