Delete Empty Rows Based On 2 Cell Values

Sub DeleteEmptyRows()
Dim iStartRow As Integer, iSections As Integer, iCounter As Integer
Dim bEndMe As Boolean, bOneRemoved As Boolean
Dim sRange As String
Dim sRange2 As String

bEndMe = False
iStartRow = 2

Do
‘Look in 2 cells to determine if the row is blank
sRange = “N” & CStr(iStartRow)
sRange2 = “O” & CStr(iStartRow)
bOneRemoved = False

If Range(sRange).Value = “” And Range(sRange2).Value = “” Then
sRange = CStr(iStartRow) & “:” & CStr(iStartRow)
Rows(sRange).Select
Selection.Delete Shift:=xlUp
bOneRemoved = True
End If
sRange = “A” & CStr(iStartRow)
If Range(sRange).Value = “” Then bEndMe = True

If bOneRemoved = False Then
iStartRow = iStartRow + 1
Else
‘The row was deleted so do not increment
iStartRow = iStartRow
End If
Loop Until bEndMe = True
End Sub