Сравнение строк в Excel

Set sotr = Workbooks("Список").Worksheets(1)
Set spis = ThisWorkbook.Worksheets(9)
'список начинается со второй ячейки
i = 2
 
Do While spis.Cells(i, 1) <> ""
    'если нашли инициалы
    If spis.Cells(i, 1).Value Like "*.*" Then
        spis.Cells(i, 1).Replace what:=".", replacement:=" "
        'чиним регистр на всякий случай
        spis.Cells(i, 1) = StrConv(spis.Cells(i, 1), vbProperCase)
        'Делаем вместо Иванов И.И. -> Иванов*И*И* для поиска
        spis.Cells(i, 1).Replace what:=" ", replacement:="*"
        'второй список начинается с седьмой ячейки
        k = 7
        'Сравниваем с полным ФИО при совпадении заменяем основное
        Do While sotr.Cells(k, 2) <> ""
            If spis.Cells(i, 1).Value Like sotr.Cells(k, 2).Value Then
                spis.Cells(i, 1).Value = sotr.Cells(k, 2).Value
                Exit Do
            End If
        k = k + 1
        Loop
    End If
i = i + 1
Loop

spis.Cells(i, 1).Value = sotr.Range(sotr.Cells(7, 2), sotr.Cells(65536, 2)).Find(What:=spis.Cells(i, 1))

a = sotr.Range(Cells(7, 2), Cells(65536, 2))

With sotr
a = Range(.Cells(7, 2), .Cells(65536, 2))
End With

   dim a as range
   Set a = Worksheets("Sheet1"). _
         Range(Worksheets("Sheet1").Cells(1, 1), Worksheets("Sheet1").Cells(5, 10))

dim a as string
    a=Worksheets("Sheet1").Cells(x, y).value