View Single Post
 
Old 10-01-2016, 04:56 PM
charlesdh charlesdh is offline Windows 7 32bit Office 2010 32bit
Expert
 
Join Date: Apr 2014
Location: Mississippi
Posts: 382
charlesdh is on a distinguished road
Default

HI,

Here's a code that may work. It's a modified version of a code the "NoSpark" created.

Copy and paste to code module.

Code:
Sub DeleteBlank()
'''Modified code that "NoSparks created.
' remove rows with blank in column "B"

With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With


'delete rows where B is blank
Range("B1", Cells(Rows.Count, "B").End(xlUp)).SpecialCells(xlBlanks).EntireRow.Delete

With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With

End Sub
Test a a copy of your data.

Last edited by charlesdh; 10-01-2016 at 05:06 PM. Reason: removed text
Reply With Quote