Ошибка выполнения 1004 «Определено приложением или определено объектом» в Selection.Entirerow.Delete для нескольких таблиц на листе

Question

У меня есть лист (защищенный) с 5 таблицами, я хочу скопировать данные из всех таблиц без пустых строк на другой лист. Код для копирования работает, но код для удаления пустых строк - нет. В первом «Selection.EntireRow.Delete» генерируется ошибка времени выполнения 1004.

Sheets("Invulblad").Select
ActiveSheet.Unprotect "Password"

Dim ws As Worksheet
Dim tbl1 As ListObject
Dim tbl2 As ListObject
Dim tbl3 As ListObject
Dim tbl4 As ListObject
Dim tbl5 As ListObject

Set ws = Sheets("Invulblad").Select
Set tbl1 = ws.ListObjects("Tabel1")
Set tbl2 = ws.ListObjects("Tabel2")
Set tbl3 = ws.ListObjects("Tabel3")
Set tbl4 = ws.ListObjects("Tabel4")
Set tbl5 = ws.ListObjects("Tabel5")

tbl1.ListRows.Add
tbl2.ListRows.Add
tbl3.ListRows.Add
tbl4.ListRows.Add
tbl5.ListRows.Add

Sheets("Invulblad").Select
Range("Tabel1[[#All],[Afdelingspecifiek]:[Aantal personen]]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Range("Tabel2[[#All],[Individueel]:[Aantal personen]]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Range("Tabel3[#All]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

Range("Tabel4[#All]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=15

Range("Tabel5[#All]").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete

ActiveSheet.Protect "Password"