Необходимо сравнить ячейки столбцов в разных файлах и при совпадении заменить значение - VBA

Формулировка задачи:

Собственно сама задача. Есть два файла, "Заказы" и "Услуги Диагностика". Необходимо сравнить столбец "Специальность" из файла "заказы" со столбцом А из файла "услуги". При совпадении необходимо заменить значение в столбце "Тип заявки" файла "заказы", на значение "Диагностика". Если вам будет удобно, то можно перенести услуги в один файл с заказами. Заранее благодарен.

Решение задачи: «Необходимо сравнить ячейки столбцов в разных файлах и при совпадении заменить значение»

textual
                            Листинг программы 
                        

                            Sub toto()
   Set oWbk = Workbooks.Open("C:\Users\пк\Downloads\Услуги_Диагностика.xlsx") ' открываем книгу Услуги_Диагностика.xlsx
   LastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row 'номер последней строки  в текущем файле
   LastRow1 = oWbk.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'номер последней строки в файле Услуги_Диагностика.xlsx
   For i = 1 To LastRow ' цикл с первой строки до последней строки текущей книги
      For j = 1 To LastRow1 'цикл с первой строки до последней строки  книги Услуги_Диагностика.xlsx
          'Если значение ячейки в 6-м столбце книги равно значению ячейки  в 1-м столбце активного листа книги Услуги_Диагностика.xlsx, то
          If ThisWorkbook.ActiveSheet.Cells(i, 6) = oWbk.ActiveSheet.Cells(j, 1) Then
              ' Записываем в i-тую ячейку 4-го столбца текущей книги слово  "Диагностика"
              ThisWorkbook.ActiveSheet.Cells(i, 4) = "Диагностика"
          End If
      Next j
    Next i
End Sub
                        