Sub UpdateAKT()

    ' Получение указателя на текущий открытый файл (AKT)
    Dim AKT As Workbook
    Set AKT = ActiveWorkbook
    
    ' Открытие файла PartsPrice.xlsx
    Dim PartsPricePath As String
    PartsPricePath = "C:\PartsPrice\PartsPrice.xlsx"
    Dim PartsPrice As Workbook
    Set PartsPrice = Workbooks.Open(PartsPricePath)
    Dim PartsPriceSheet As Worksheet
    Set PartsPriceSheet = PartsPrice.Sheets(1)
    
    ' Обработка каждой выделенной ячейки в колонке C файла AKT
    Dim AKTSheet As Worksheet
    Set AKTSheet = AKT.ActiveSheet
    Dim SelectedCells As Range
    Set SelectedCells = Selection
    Dim row As Integer
    For Each cell In SelectedCells
        row = cell.Row
        ' Получение значений для поиска в столбце Article файла PartsPrice
        Dim lookup_value As String
        lookup_value = AKTSheet.Cells(row, 3).Value
        If lookup_value <> "" Then
            ' Поиск соответствующего артикула в файле PartsPrice.xlsx
            Dim part_price As Variant
            Dim part_row As Integer
            part_row = Application.Match(lookup_value, PartsPriceSheet.Columns(1), 0)
            If Not IsError(part_row) Then
                part_price = PartsPriceSheet.Cells(part_row, 2).Value
                AKTSheet.Cells(row, 5).Value = part_price
            End If
        End If
    Next cell
    
    ' Сохранение и закрытие файлов
    AKT.Save
    PartsPrice.Close
    
End Sub