Which is Fast way to delete Blank and Zero values, records entire Rows?

[Guna13]

Hi Team,

In a specific sheet I have over 10000 records, and I need to delete "Blank" data in the "B" column, then delete entire rows the same way I delete "0" values.

Can you suggest any other method or VBA code to delete fast for this code? It takes a little bit of time to delete.

Trg.Columns("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Trg.AutoFilterMode = False

Trg.Range("A1:B1000").AutoFilter Field:=2, Criteria1:="0"
  
  '2. Delete Rows
    Trg.Range("B2:B1000").SpecialCells(xlCellTypeVisible).Delete
  
  
  '3. Clear Filter
  On Error Resume Next
    Trg.AutoFilterMode = False
  On Error GoTo 0

 

[Guna13]

you are Great Mr. @Peter_SSs - Thanks....

 

[Peter_SSs]

Glad to help.