VBA to delete empty rows

[KGee]

I'm having a hard time finding something that will work. I have a sheet with data in columns A, B & C. Column A will always have an entry and columns B & C will either both have data or both be empty. I want to delete each row where B/C does not have data.

On Error Resume Next
Sheet1.Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

I've also tried selecting the entire range of data and using this:

On Error Resume Next
Selection.EntireRow.SpecialCells(xlBlanks).EntireRow.Delete
On Error GoTo 0

 

[Jonmo1]

It's likely that your blanks are not truely blank.
Were they formulas that returned "", and have since been copy / pastespecial / values ?

Try

With Sheet1.Range("B:B")
    .Value = .Value
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

 

[KGee]

Yes, the data is copied from one workbook to another and pasted in as values. I was thinking that might have something to do with it but couldn't figure out how to check. I just remembered about ISBLANK and confirmed that was the issue. All "blanks" were returning false unless I selected the cell and hit delete. Your suggestion did the trick.

Thanks for sorting me out.

 

[Jonmo1]

Glad to help, thanks for the feedback.