Оптимизировать макрос, сравнивающий значения в столбцах двух различных таблиц Word

Sub sravnenie()
 
Dim i,j,iCount9, iCountn As integer
 
iCount9=ActiveDocument.Tables(9).Rows.Count
iCountn=ActiveDocument.Tables(1).Rows.Count
 
For i=2 to iCount9
  For j=2 to iCountn
  IF ActiveDocument.Tables(9).Colums(2).Cells(i).Range.Text=ActiveDocument.Tables(1).Colums(2).Cells(j).Range.Text Then
    ActiveDocument.Tables(1).Colums(10).Cells(j).Range.Text= "Да"
  End if
  Next j
Next i
 
End Sub

Sub sravnenie_140925()
''пробуйте на копии''''''''''''''''''''''''''''''''''''
Dim i, j, iCount9, iCountn As Integer, ss, s1
Dim tbl1 As Table
Dim tbl9 As Table
Set tbl1 = ActiveDocument.Tables(1)
Set tbl9 = ActiveDocument.Tables(9)
iCount9 = tbl9.Rows.Count
iCountn = tbl1.Rows.Count
 ss = "`"
For i = 2 To iCount9
  ss = ss & tbl9.Columns(2).Cells(i).Range.Text & "`"
 
Next i
  
 
 
 
  For j = 2 To iCountn
  
  s1 = tbl1.Columns(2).Cells(j).Range.Text
  If InStr(ss, s1) > 0 Then
     tbl1.Columns(10).Cells(j).Range.Text = "Да"
  End If
  Next j
 
 
End Sub

Sub sravnenie_140927()
''пробуйте на копии''''''''''''''''''''''''''''''''''''
Dim i, j, iCount9, iCountn As Integer, ss, s1
Dim tbl1 As Table
Dim tbl9 As Table
Set tbl1 = ActiveDocument.Tables(1)
Set tbl9 = ActiveDocument.Tables(9)
iCount9 = tbl9.Rows.Count
iCountn = tbl1.Rows.Count
 ss = "`"
For i = 2 To iCount9
  ss = ss & tbl9.Columns(2).Cells(i).Range.Text & "`"
 
Next i
  
 
 
 
  For j = 2 To iCountn
  
  s1 = "`" & tbl1.Columns(2).Cells(j).Range.Text
  If InStr(ss, s1) > 0 Then
     tbl1.Columns(10).Cells(j).Range.Text = "Да"
  End If
  Next j
 
 
End Sub