Удаление пустых строк из таблицы, ошибка при отсутствии пустых строк для удаления

Question

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

Range("Table3").Activate 
Selection.SpecialCells(xlCellTypeBlanks).Select 
Selection.EntireRow.Delete 
ActiveWorkbook.RefreshAll 

Любые идеи о том, как обойти эту проблему?

Answer 1

Рассмотрим:

Sub kjhdfuvhx() 
Range("Table3").Activate 
On Error Resume Next 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.EntireRow.Delete 
On Error GoTo 0 
ActiveWorkbook.RefreshAll 
End Sub