Which in VBA terms becomes:Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Deletefor the whole of the active sheet.