Sub test()
Dim ar As Excel.Range
Dim i As Long, pos As Long
Set ar = Range("D2:N" & CStr(65200))
For i = 1 To ar.Rows.Count
Select Case ar.Cells(i, 1)
Case 0
ar.Cells(i, 7).Clear
ar.Cells(i, 11).Clear
Case 1
ar.Cells(i, 8).Clear
ar.Cells(i, 10).Clear
End Select
If ar.Cells(i, 1) <> ar.Cells(i + 1, 1) Then
pos = i + 1
ar.Cells(i + 1, 4).Resize(8).EntireRow.Delete
End If
Next
Set ar = Nothing
End Sub