TABLE ROW LOOP-DELETE BLANK ROWS

    'Delete row if no cells are populated.
    For Each lRow In ActiveSheet.ListObjects(tbl).ListRows
        If WorksheetFunction.CountA(lRow.Range) = 0 Then
            lRow.Delete
        End If
    Next