VBA delete rows that have all zeros in Col C thru G

[MikeL]

Hi,
I would like to delete rows in which the values in Col C thru G are all "0". Is there best VBA solution?
Thanks in advance,
Mikel

 

[Kamolga]

Sub deleterow()
Dim sht As Worksheet
 Set sht = ActiveSheet
Dim LastRow As Long
 LastRow = sht.Cells(sht.Rows.Count, "C").End(xlUp).Row
Dim i As Long
    For i = 1 To LastRow
        If (Cells(i, 3) = 0 And Cells(i, 4) = 0 And Cells(i, 5) = 0 And Cells(i, 6) = 0 And Cells(i, 7) = 0) Then
         Rows(i).Delete
        End If
    Next i
End Sub

Note that an empty cell does not =0