Deleting Rows were there are formulas that return a nil value

Hi Mona

Thanks for the question.

I am assuming the values you are wanting to check are in known columns. For my simple example I am assuming the formula is in the B column and my data starts in row one and stops when the formulas stop.

Range("B1").Select

Do Until Activecell.Formula=""

    If Activecell.Value=vbNullString Then

        Activecell.Entirerow.Delete

    Else

        ActiveCell.Offset(1,0).Select

    End If

Loop