How To Detele Col Hv One Zero On Colume C

how to modify the below code.

right now it will check for col C and D , if both col have zero it will delete, i like to change the code , so it only check for C col , if it is zero , it delete the row.

Sub macro_07_if_detect_2_zero_delete_row()

Dim lastrow As Long, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlManual
With ActiveSheet
On Error Resume Next
.Columns(3).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
On Error GoTo 0
lastrow = .Cells(Rows.Count, 3).End(xlUp).Row
For i = lastrow To 1 Step -1
If .Range("C" & i).Value = 0 And .Range("D" & i).Value = 0 Then .Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub