Excel VBA: альтернативы "Application.Union" на разных листах?

Question

Ниже приведены два примера кода, который я надеюсь включить в один макрос, но я знаю, что Application.Union имеет свои ограничения. Я попытался настроить тип сделки AllAreas и Idx, но не смог получить правильный синтаксис для диапазонов. Может кто-нибудь, пожалуйста, взгляните на это и дайте мне знать, как лучше всего сжать его в один макрос? Любая помощь будет оценена. Спасибо.

For Each cell In Worksheets("GL").Range("D1:D2000")
    If cell.Value = "Computer Checks" Then
        If MyCount = 1 Then Set NewRange = cell.Offset(0, 1)
        Set NewRange = Application.Union(NewRange, cell.Offset(0, 1))
        MyCount = MyCount + 1
    End If
Next cell

For Each cell In Worksheets("BS").Range("D1:D2000")
    If cell.Value = "CHECK PAID" Then
        If MyCount = 1 Then Set NewRange = cell.Offset(0, -3)
        Set NewRange = Application.Union(NewRange, cell.Offset(0, -3))
        MyCount = MyCount + 1
    End If
Next cell