do you want to delete the rows  where all the cells have zero value...

if the above said is true then find the answer below

Sub OM()
Dim lastrow As Integer
Dim lastcol As Integer

Worksheets("Sheet1").Activate
lastrow = Range("a65536").End(xlUp).Row
lastcol = 9 'because you are sure it is 9

Count = lastrow
i = 1
While (lastrow <> 0)
If (Range("A" & i) = 0 And Range("B" & i) = 0 And Range("C" & i)
= 0 And Range("D" & i) = 0 And Range("E" & i) = 0 And Range("F" & i)
= 0 And Range("G" & i) = 0 And Range("H" & i) = 0 And Range("I" & i)
= 0) Then
Range("A" & i).Select
Selection.EntireRow.Delete shift:=xlUp
End If
i = i + 1
lastrow = lastrow - 1
Wend
End Sub

Let me know if this solves your problem...