Deletar linhas vazias

Bom tarde...

desculpem-me mas tenho andado bem cheia de trabalho...

aqui vai mais uma ... que utilizo muito para tratar meu banco de dados.

Com este código é possível excluir linhas vazias da planilha toda...

Sub deletarLinhasVazias()
Dim ultimalinha, r As Integer
ultimalinha = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = ultimalinha To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then
Rows(r).Delete
End If
Next r

End Sub

este não foi eu que desenvolvi achei num site....

http://www.bertolo.pro.br/FinEst/TutoriaisVBA/RemoverLinhasEmBranco.pdf

valeu Galera até a proxima......