Code deleting merged cells

[NightWalker]

I have the following code to remove all blank rows from my spreadsheet. The problem I am having is that the first row consists of merged cells and for some reason it is deleting this row. I am not understanding why. Could someone please give me some assistance. Thank you, --Walker

Public Sub DeleteBlankRows(xls As Object) 'xls is active worksheet being modified from other subroutine

Dim wks As Worksheet
Dim lngLastRow As Long, lngLastCol As Long, lngIdx As Long, _
    lngColCounter As Long
Dim blnAllBlank As Boolean

Set wks = xls

With wks
    'Now that our sheet is defined, we'll find the last row and last column
    lngLastRow = .Cells.Find(What:="*", LookIn:=xlFormulas, _
                             SearchOrder:=xlByRows, _
                             SearchDirection:=xlPrevious).Row
    lngLastCol = .Cells.Find(What:="*", LookIn:=xlFormulas, _
                             SearchOrder:=xlByColumns, _
                             SearchDirection:=xlPrevious).Column

    'Since we need to delete rows, we start from the bottom and move up
    For lngIdx = lngLastRow To 1 Step -1

        'Start by setting a flag to immediately stop checking
        'if a cell is NOT blank and initializing the column counter
        blnAllBlank = True
        lngColCounter = 2

        'Check cells from left to right while the flag is True
        'and the we are within the farthest-right column
        While blnAllBlank And lngColCounter <= lngLastCol

            'If the cell is NOT blank, trip the flag and exit the loop
            If .Cells(lngIdx, lngColCounter) <> "" Then
                blnAllBlank = False
            Else
                lngColCounter = lngColCounter + 1
            End If

        Wend

        'Delete the row if the blnBlank variable is True
        If blnAllBlank Then
            .Rows(lngIdx).Delete
        End If

    Next lngIdx
End With


'MsgBox "Blank rows have been deleted."

 End Sub

 

[NightWalker]

Joe, Many thanks for your help and quick responses. The last part of code works perfectly and I will adapt it to other spreadsheets that other vendors send me. Thank you again for your help. --Walker

 

[Joe4]

You are welcome!
Glad to hear that it worked for you.

 

[NightWalker]

Thank you Joe. I will try that.