or
Sub ertert()
Dim x, i&
With Sheets("m_cert")
x = .Range("B14:C" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
End With
With CreateObject("Scripting.Dictionary")
.CompareMode = 1
For i = 1 To UBound(x)
.Item(x(i, 1) & "~" & x(i, 2)) = 1
Next i
With Sheets("m_cert check")
x = .Range("A14:C" & .Cells(Rows.Count, 2).End(xlUp).Row).Value
End With
For i = 1 To UBound(x)
If .Exists(x(i, 1) & "~" & x(i, 2)) Then x(i, 3) = "Yes" Else x(i, 3) = "No"
Next i
End With
With Sheets("m_cert check")
.Range("A14:C" & .Cells(Rows.Count, 2).End(xlUp).Row).Value = x
End With
End Sub
Bookmarks