The information you've provided is not sufficient!
a. Column A is used to find last row
b. Column A and Column B are used to check if they are blank.
[pre]
Code:
Sub Macro1()
Application.ScreenUpdating = False
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Len(Range("A" & i).Value) = 0 And Len(Range("B" & i).Value) = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
[/pre]
Better approaches can be worked out but for that you need to inform us about your layout, columns you need to check etc.