Как сравнить каждую ячейку в Line2 с Line1

Question

Я разрабатываю скрипт, который будет проходить через каждую ячейку в строке 2 и находить то же самое в строке 1 с подсчетом, сколько же.Теперь я застрял.

Sub compare()
final_col = Cells(7, 250).End(xlToLeft).Column
Dim i As Integer, j As Integer
Dim Line1 As Range
Dim Line2 As Range
Match = 0

Line1 = Range(Cells(4, 7), Cells(7, final_col))
Line2 = Range(Cells(12, 7), Cells(7, final_col))

For Each i In Line2
   For Each j In Line1
      If i = j Then
         Match = +1
      End If
   Next j
Next i

End Sub

Какой будет наилучший способ выполнения данных для каждого цикла.