.EntireRow.Delete не работает в Excel VBA

Question

Я пытаюсь использовать макросы для удаления отфильтрованных строк из таблицы в Excel.Я продолжаю сталкиваться с проблемами с этим, удаляя данные (Ошибка # 1004).Вот мой код:

Dim RangeToDelete As Range
Set RangeToDelete = Sheets("Sheet1").Range("TableName").Offset(0, 1) _
    .SpecialCells(xlCellTypeVisible)
If Not RangeToDelete Is Nothing Then
    RangeToDelete.EntireRow.Delete
End If
Set RangeToDelete = Nothing