L oop через рабочие книги и удалять скрытые строки после автофильтра Excel VBA

Question

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

моя проблема в том, что, когда я добираюсь до второго маршрута, возникает эта ошибка:

ошибка времени выполнения '1004'

Ошибка метода 'Объединение' объекта '_Global'

относительно этого кода:

Set HRange = Union(HRange, oRow)

Мой код (из Удалить скрытые / невидимые строки после автофильтра Excel VBA )

With ActiveWorkbook.Sheets

    With Worksheets(Sheet4.Name)
        .ListObjects("TBL_Hour").Range.AutoFilter Field:=2, Criteria1:=Country
        Set HmyRows = Intersect(.Range("A:A").EntireRow, .UsedRange)
        If .ListObjects("TBL_Hour").DataBodyRange.Rows.Hidden = True Then
            For RowCntr = 1 To 10
                .ListObjects("TBL_Hour").ListRows.Add AlwaysInsert:=True
            Next RowCntr
        End If
    End With

        For Each oRow In HmyRows.Columns(1).Cells
            If oRow.EntireRow.Hidden Then
                If HRange Is Nothing Then
                    Set HRange = oRow
                Else
                    Set HRange = Union(HRange, oRow)
                End If
            End If
        Next

    If Not HRange Is Nothing Then HRange.EntireRow.Delete

End With