Sub Macro1()
'
' Macro1 Macro
'
'
For i = 1 To 73
For Each j In Array(2, 5, 8, 11, 14, 17, 21, 24, 27, 30, 33, 36, 40, 43, 46, 49, 52, 55, 59, 62, 65, 68, 71, 74, 77, 80)
If Cells(i, 3).Value = 1 Then
If Cells(i, 4).Value < Cells(i, 3).Value Then
Range("A" & i & ":B" &...