For currentRow = LastRow To 2 Step -1If WorksheetFunction.CountA(Rows(currentRow)) = 0 Then.Rows(currentRow).EntireRow.DeleteEnd IfNext