Macro to delete cells containing a formula that results in ""

Sub eliminateBlankCells()
For Each Cell In Selection
    If Cell.Value = "" Then
        Cell.Delete Shift:=xlUp
    End If
Next

End Sub