Thread: eliminating blan rows between cells in a column cantaining data
View Single Post
 
Old 02-28-2017, 11:45 PM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
  
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default
If your data starts in A1 and there is nothing in column A below "eeee", this should work
Code:
Range("A1", Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete
Reply With Quote