VBA Excel - Excluindo linhas em branco (Delete Blank Cells)

Continuando com as opções quanto customizar as planilhas, retirando delas todos
os espaços não usados temos a função abaixo que deletará todas as células em
branco que estiverem na coluna D.

Sub DelBlankRows()
        Range("D1:D" & Cells _
        (Rows.Count,2).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Vejam outras várias sugestões...
Blog Excel
Blog Access
Blog Office