i am using the following code to delete the complete row:

Range("B:B").Select
Selection.AutoFilter Field:=1, Criteria1:="0"
On Error GoTo line1
With Sheet1.Range("b:b")
Cells.SpecialCells(xlCellTypeVisible).EntireRow.De lete
End With
line1:

what i need is to delete only columns a:g (not the entire row) if the value
in column b = 0.

any help is appreciated.

jat