Excel VBA Макросы. Ошибка при копировании отфильтрованных строк.

[Посетитель]

Есть таблица, в которой данные для копирования отфильтровываются с помощью автофильтра.  Проблема возникает, когда видимых строк нет, т.е. фильтрами ничего не найдено. Макрос просто выдает ошибку и останавливается.
Как его поправить, чтобы он пропускал копирование в таких случаях и шел по коду дальше?

Ошибка происходит в этой строке:
Range("A1:E10").SpecialCells(xlCellTypeVisible).Copy

[Администратор]

On Error Resume Next
Range("A1:E10").SpecialCells(xlCellTypeVisible).Copy
If Err.number <> 0 Then
    On Error GoTo 0
    GoTo Метка
End If
On Error GoTo 0

Метка:

[Посетитель]

Ура! Спасибо огромное! Работает.