Here is an alternative, just out of interest. Just “for fun”
It is probably only useful for my later reference, that’s all.

The main changes are
_1) I use arrays. ( arr1() , arr2() , arr2B() )
I do this just from personal choice. I do this because arrays work much faster if you are only interested in values with no cell formatting
_2) I changed WorksheetFunction.Match to Application.Match , because I do not like to use On Error Resume Next
I do not need On Error Resume Next for Application.Match , because , if it does not find a match, it does not error. Instead, it returns a VBA error string message, which can be tested for using IsError( __ )
( https://excelfox.com/forum/showthrea...ll=1#post14204 )
_3) I do not use _ With _ End With _ because it confuses me

I left the original code lines in , ' commented out for comparison

Here is the alternative: https://excelfox.com/forum/showthrea...ll=1#post14605