non si potrebbe sostituire la riga
"confronta = Application.Match(Range("b" & i), Range("A1:A10"), 0)"
con qualcosa di più compatibile con vecchie versioni di VB.