Delete Entire Row If No Data Is Found
These piece of code lets you delete an entire row within the used range of the sheet if the entire row contains no data.
' ======================================================================================================
' ## Deletes the entire row within the used range
' if the ENTIRE row contains no data
'=======================================================================================================
Sub DeleteBlankRows()
' Vars
Dim rngUsedRange As Range
Dim lngRow As Long
' Get the used range on sheet to prepare deleting rows
Set rngUsedRange = ActiveSheet.UsedRange
' Delete entire rows that contain no data
For lngRow = rngUsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(rngUsedRange.Rows(lngRow)) = 0 Then
rngUsedRange.Rows(lngRow).EntireRow.Delete
End If
Next lngRow
End Sub