Delete rows with in a range based on cell criteria

[Graham JN]

Can some one help me i would like to select a range of cells B27 to J61

If a 0 appears in the cell in column B WITHIN THE RANGE then the entire row would be deleted

 

[Fluff]

How about

Sub delZero()
   Dim i As Long
   For i = 61 To 27 Step -1
      If Range("B" & i).Value = 0 Then Rows(i).Delete
   Next i
End Sub

 

[Graham JN]

Thankyou for your help it works great, could you help me one more step

Instead of deleting the entire row i would like it only to delete the rows but JUST within column range B to J AND NOT the entire row.

Thanks

 

[Fluff]

Try

Sub delZero()
   Dim i As Long
   For i = 61 To 27 Step -1
      If Range("B" & i).Value = 0 Then Range("B" & i).Resize(, 9).Delete
   Next i
End Sub