Deleting Semi-blank records in Excel through VBA -

I am trying to delete rows in VBA which are not completely empty because I am saying this because I I can not apply the conditions to clear completely like my first column is never empty and I want to filter on the second column.

find lastrow = sht.Cells ("*", search order: = xlByRows, searchdirection: = xl pre). = 1 for I = 1 activate = "" then select. Enterro Counter = Counter - Delete 1 other ActiveCell.Offset (1, 0). Select End End Next I (given information) Desired Results Name ID Address Name ID Address John NYC Jack 55 Chicago Jack 55 Chicago Cate 65 Boston Kate 65 Boston Mike London

Now Offset Always On the next line but if I have another column in the row blank, then how do I delete the entire row? Thank you.

You can display only the rows to delete an .autofilter

  with sub nuke_BLank_Bs () from ActiveSheet. With (1, 1) .CurrentRegion if .autofilter then .AutoFilter .AutoFilter Field: = 2, Criterion 1: = "=" with .Offset (1, 0) If CBU (App. Settle (103. Seals) ) so _. Innero Delete and end with Endfilter End & End and End and End and End and End.  

This filter will filter for empty entries in column B. and delete all the rows if entries are found

< / Div>