Объединение методов объекта Глобальная ошибка ошибки

Question

У меня есть 3 рабочих листа: инвентарный счет, счетчик выдачи и запас. Они выглядят примерно так:

Итак, я пытаюсь объединить номера образцов в Подсчет инвентаризации и выдачи, а затем попытка применить расширенный фильтр для получения уникальных номеров образцов на листе запасов. Вот мой код:

Sub Stock1()
Dim wbData As Range
Dim wbData2 As Range
Dim unionData As Range
Dim lastrow As Long
Dim lastrow2 As Long
lastrow = WorksheetFunction.CountA(ThisWorkbook.Worksheets("Issuance").Range("B:B")) + 2
lastrow2 = WorksheetFunction.CountA(ThisWorkbook.Worksheets("Inventory").Range("B:B")) + 2
Set wbData = ThisWorkbook.Worksheets("Inventory").Range("B3:B" & lastrow)
Set wbData2 = ThisWorkbook.Worksheets("Issuance").Range("B3:B" & lastrow2)

Set unionData = Union(wbData, wbData2)

Set wbExtract = ThisWorkbook.Worksheets("Stock").Range("B1")

unionData.AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=wbExtract, Unique:=True

'Dim lastrow3 As Long
'lastrow3 = WorksheetFunction.CountA(ThisWorkbook.Worksheets("Stock").Range("B:B"))

End Sub

Но это дает мне ошибку в строке объединения и говорит: «Объединение методов объекта Global failed error».

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