Is this what you're wanting?
Sub Match_and_Clear()
Dim wb As Workbook, v As Variant
Set wb = Workbooks.Open(Environ$("UserProfile") & "\Downloads\1.xls")
v = wb.Sheets("1-Sheet1").Cells(1, 1).CurrentRegion
Dim i As Long, c As Range
With ThisWorkbook.Sheets("Sheet1")
For i = LBound(v) To UBound(v)
If v(i, 4) = v(i, 5) Then
If v(i, 8) < v(i, 11) Then
Set c = .Columns(1).Find(v(i, 2))
If Not c Is Nothing Then
If v(i, 9) = c.Offset(, 1).Value Then
c.Offset(, 2).Resize(, c.End(xlToRight).Column - 2).ClearContents
Else
c.End(xlToRight).Offset(, 1).Value = c.End(xlToRight).Value + 1
End If
End If
End If
End If
If v(i, 4) = v(i, 6) Then
If v(i, 8) > v(i, 11) Then
Set c = .Columns(1).Find(v(i, 2))
If Not c Is Nothing Then
If v(i, 9) = c.Offset(, 1).Value Then
c.Offset(, 2).Resize(, c.End(xlToRight).Column - 2).ClearContents
Else
c.End(xlToRight).Offset(, 1).Value = c.End(xlToRight).Value + 1
End If
End If
End If
End If
Next i
End With
End Sub
Bookmarks