I am trying to delete rows in VBA which are not completely blank. The reason I say this is because I am not able to apply conditions for perfectly blank like my first column is never blank and I want to filter on the second column.

```
lastrow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For i = 1 To Counter
If ActiveCell = "" Then
Selection.EntireRow.Delete
Counter = Counter - 1
Else
ActiveCell.Offset(1, 0).Select
End If
Next i

   ( Given Info )                    Desired Result

Name   ID   Address                   Name   ID   Address
John        NYC                       Jack   55   Chicago
Jack   55   Chicago                   Kate   65   Boston
Kate   65   Boston                    
Mike        London

```

Now the offset will always traverse to the next row but how do I delete the entire row if the second column of a row is blank. Thanks.