Formula To Delete Certain Cells ?????

[CARBOB]

I want to delete the all cells from C24:D4469 that has a zero in the Col D D, but the cell in Col C has to be deleted also. Ex C24:D30, delete, skip C31:D32; delete C33:D53, Etc. Can this be done with a formula? Thanks for all suggestions.

FL CASH 3 DIGITS SKIPS.xls
	C	D	E	F
24	EOELHLIOI0	0	0	#NUM!
25	OEELHHIOO0	0	0	#NUM!
26	EEOHHHIIO0	0	0	#NUM!
27	EEOHHLOOI0	0	0	#NUM!
28	EOEHHHIOI0	0	0	#NUM!
29	OEEHHLOOI0	0	0	#NUM!
30	OOEHHLOOI0	0	0	#NUM!
31	EOOHHLOOI0	2	2454	2454
32	EEEHHHOII0	3	1016	800.5
33	EEEHLLOOI0	0	0	#NUM!
34	EOEHHHIOO0	0	0	#NUM!
35	EOEHLHIII0	0	0	#NUM!
36	EOEHLLOII0	0	0	#NUM!
37	OOEHLLOOI0	0	0	#NUM!
38	OEOLHLIOI0	0	0	#NUM!
39	EOOHHHOOO0	0	0	#NUM!
40	EOOHLHIIO0	0	0	#NUM!
41	OOOLLLOOI0	0	0	#NUM!
42	OOOLLHIIO0	0	0	#NUM!
43	OOOHLLOIO0	0	0	#NUM!
44	EEEHHHOOO0	0	0	#NUM!
45	EEOHLLOII0	0	0	#NUM!
ODDEVEN-HIGHLOW-INOUT SKIPS (2)

 

[Datsmart]

If you do not want the rows deleted, then this code will clear Columns C and D when column D is zero.

Sub DeleteZeroCells()
Dim CheckRange As Range, c As Range
    Set CheckRange = Range("D1:D" & _
    Range("D65536").End(xlUp).Row - 2)
    For Each c In CheckRange
        If c.Value = 0 Then
        c.Value = ""
        c.Offset(0, -1).Value = ""
        End If
    Next c
End Sub

HotPepper,
Thanks for pointing out my error in my entire row deletion code. You are correct, you have to work it from the bottom up so it won't skip rows.

 

[CARBOB]

Does this work for you?

Sub DeleteZeros()
Dim x As Long, y As Long
x = Range("D" & Rows.Count).End(xlUp).Row
For y = x To 24 Step -1
    If Range("D" & y) = 0 Then Range("C" & y).Resize(, 2).Delete xlShiftUp
Next y
End Sub

Hotpepper, thank you, it appears to have worked. Took 8 minutes to run. Took me an hour to do 200 rows by hand.