See if this works

[VBA]Public Sub DeleteData()
Const FORMULA_CHECK As String = "=AND(B<start>="""",NOT(OR(A<start>={""Cookies"",""Salt""})))"
Const FORMULA_SUBTOTAL = "=IF(B<start+>="""","""",B<start+>*ROW(B<start+>)+68)"
Const FORMULA_PCTOTAL = "=IFERROR(D<start>*0.25,"""")"
Const FORMULA_WEIGHT = "=IFERROR(D<start>-E<start+>,"""")"
Const FORMULA_TOTALWEIGHT = "=IFERROR(E<start>-F<start+>,"""")"
Const HEADER_ROW As Long = 6
Dim rng As Range
Dim lastrow As Long
Dim numcols As Long
Dim i As Long

With ActiveSheet

numcols = .Cells(HEADER_ROW, "A").End(xlToRight).Column
.Columns(numcols + 1).Insert
.Rows(HEADER_ROW).Insert shift:=xlDown

lastrow = .UsedRange.Rows.Count
.Cells(HEADER_ROW, numcols + 1).Value = "temp"
.Cells(HEADER_ROW + 1, numcols + 1).Value = "FALSE"
Set rng = .Cells(HEADER_ROW, "A").Resize(lastrow, numcols + 1)
On Error Resume Next
rng.Offset(2, 0).FormatConditions(1).Delete
On Error GoTo 0
.Cells(HEADER_ROW + 2, numcols + 1).Resize(lastrow - 2).Formula = Replace(FORMULA_CHECK, "<start>", HEADER_ROW + 2)
rng.AutoFilter Field:=numcols + 1, Criteria1:="TRUE"
Set rng = rng.SpecialCells(xlCellTypeVisible)
rng.Delete shift:=xlUp

.Columns(numcols + 1).Delete

lastrow = .UsedRange.Rows.Count
Set rng = .Cells(HEADER_ROW + 1, "A").Resize(lastrow - HEADER_ROW, numcols)
rng.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=1"
rng.FormatConditions(1).Interior.ColorIndex = 15
.Cells(HEADER_ROW + 1, "D").Resize(lastrow - HEADER_ROW).Formula = Replace(Replace(FORMULA_SUBTOTAL, _
"<start>", HEADER_ROW + 1), _
"<start+>", HEADER_ROW + 2)
.Cells(HEADER_ROW + 1, "E").Resize(lastrow - HEADER_ROW).Formula = Replace(Replace(FORMULA_PCTOTAL, _
"<start>", HEADER_ROW + 1), _
"<start+>", HEADER_ROW + 2)
.Cells(HEADER_ROW + 1, "F").Resize(lastrow - HEADER_ROW).Formula = Replace(Replace(FORMULA_WEIGHT, _
"<start>", HEADER_ROW + 1), _
"<start+>", HEADER_ROW + 2)
.Cells(HEADER_ROW + 1, "G").Resize(lastrow - HEADER_ROW).Formula = Replace(Replace(FORMULA_TOTALWEIGHT, _
"<start>", HEADER_ROW + 1), _
"<start+>", HEADER_ROW + 2)
End With
End Sub
[/VBA]