Macro- deleta topdas linhas em branco em uma tabela

Question

Pessoal, estou com uma dúvida.Eu tenho o código que analiza se na celula A de detrminada linha estiver nada escrito, ela deleta a linha.O problema é que ela não faz para toda ao mesmo tempo (exemplo:  se eu  tenho cinco linhas em branco eu tenho que mandar executar a macro 5 vezes).
Eu precisava executar somente uma vez e excluir todas as linhas cuja célula A estiver em branco.

Segue o meu código:

Sub Deleta_linha()

Dim MyCell As Range

For Each MyCell In Sheets(1).Range("A:A").SpecialCells(xlCellTypeBlanks)

If MyCell.Row > 4 Then
MyCell.EntireRow.Delete Shift:=xlUp
End If

Next MyCell

End Sub

Obrigado!