Assuming that you do not have any data below the data in Column B that you
want to work on try somehting like:

Sub DeleteIt()
Dim LastRow As Long
Dim Counter As Long

LastRow = Cells(Rows.Count, 2).End(xlUp).Row

Application.ScreenUpdating = False
For Counter = LastRow To 1 Step -1
If Cells(Counter, 1).Value = "" Then _
Range(Cells(Counter, 1), Cells(Counter, 2)).Delete shift:=xlUp
Next Counter
Application.ScreenUpdating = True
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Roger on Excel" wrote in message
...
I have two columns (A and B) which return results from formulas in other
cells.

I would like to have a macro read down the list of column A and if the
result returned is empty/zero, the contents formula of its adjacent column
B
cell be deleted.

I have complex code which doesnt work when the column B result returns a
blank (which is the case when A is also blank), so this solution, although
drastic will solve my problem adequately.

Can anyone help?

Thanks,
Roger