Sub blah()
Set Rng = Range("A1").CurrentRegion
With Rng
For Each cll In .Columns(2).Cells
If cll.Value = 1 Then
If Application.CountIfs(.Columns(2), 1, .Columns(3), cll.Offset(, 1)) > 0 Then
cll.Offset(, 2).Value = "Other"
cll.FormulaR1C1 = "=COUNTIFS(R1C1:R34C1,RC[-1],R1C3:R34C3,RC[1],R1C4:R34C4,""Other"")"
End If
End If
Next cll
.Columns(2).Value = .Columns(2).Value
.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
End With
End Sub