Exclusão de linhas em branco em tabela após importação de várias guias de uma planilha do Excel

Amigos, criei uma BD para importar dados de uma planilha que contém várias guias, só que quando você abre a tabela tem vários intervalos de linhas vazias e o Access trava antes de terminar de copiar todas as guias da planilha do excel. Existe algum código que elimine estas linhas vazias da tabela?? Existem algum motivo para o Access travar em uma importação de dados do Excel?? Agradeço a quem puder ajudar.

Segue link de acesso ao BD:

https://onedrive.live.com/redir?resid=DFFEBB004634ED20%21132

Copie e cole num novo módulo ou botão o código abaixo e execute.

Código:

CurrentDb.Execute "Delete * from [tbl_Programas Abertos] Where isnull(codigo)"