 <p>Try this (wishing it would help, although take backup of your sheet before!):</p> <pre><code>Sub FastestBlankRowTerminator() ActiveSheet.UsedRange.Columns(6).SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub </code></pre>