excel vba delete empty rows
' Deletes empty rows dim rRange As Range, rowsCount As Long, i As Long Set rRange = ActiveSheet.Range("A1:B100") rowsCount = rRange.rows.Count For i = rowsCount To 1 Step -1 If WorksheetFunction.CountA(rRanges.rows(i)) = 0 Then rRange.rows(i).Delete End If Next