Excel VBA- Delete blank rows

DELETE ALL BLANK ROWS OF A SHEET

Sub pDelBlnkRws()

    Dim lngMaxR As Long

    Dim lngC As Long

    Dim rngStart As Range   

    On Error GoTo lblError   

    Set rngStart = Sheet1.Range("A" & Sheet1.Rows.CountLarge)

‘’ Assuming that there are 11 columns in the data range

    For lngC = 1 To 11

        If rngStart.End(xlUp).Row > lngMaxR Then

            lngMaxR = rngStart.End(xlUp).Row

        End If

        Set rngStart = rngStart.Offset(ColumnOffset:=1)

    Next

      

    For lngC = lngMaxR To 1 Step -1

        With Sheet1

            If Application.WorksheetFunction.CountA(.Range("A" & lngC).EntireRow) = 0 Then

                .Range("A" & lngC).EntireRow.Delete

            End If

        End With

    Next

   

lblError:

If Err.Number <> 0 Then

    MsgBox "Error Number:" & Err.Number & vbCrLf & "Error Description: " & Err.Number

End If

End Sub