Dim wb As Workbook
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    Dim file1 As Variant
    Dim file2 As Variant
    
    ' Выбор файла 1
    file1 = Application.GetOpenFilename("Excel файлы (*.xlsm; *.xls), *.xlsm;*.xls")
    If file1 = False Then Exit Sub ' Проверка на отмену выбора файла
    
    ' Выбор файла 2
    file2 = Application.GetOpenFilename("Excel файлы (*.xlsx; *.xls), *.xlsx;*.xls")
    If file2 = False Then Exit Sub ' Проверка на отмену выбора файла
    
    Set wb = Workbooks.Open(file1)
    Set ws1 = wb.Worksheets("Sheet1")
    
    Set wb2 = Workbooks.Open(file2)
    Set ws2 = wb2.Worksheets("Юр. лица")
    
    lastRow1 = ws1.Cells(ws1.Rows.Count, "BC").End(xlUp).Row
    
    For i = 2 To lastRow1
        
        If ws1.Range("BC" & i).Value = "нет" Then
        
            lastRow2 = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row
            
            ws1.Range("AA" & i).Value = ws2.Range("C" & lastRow2 + 1).Value
            ws1.Range("AB" & i).Value = ws2.Range("D" & lastRow2 + 1).Value
            ws1.Range("BN" & i).Value = ws2.Range("E" & lastRow2 + 1).Value
            
        End If
        
    Next i
    
    wb.Save
    wb.Close
    wb2.Save
    wb2.Close

    Set ws1 = Nothing
    Set ws2 = Nothing
    Set wb = Nothing
    Set wb2 = Nothing

End Sub

Option Explicit

Sub add()
    Dim i           As Long

    '    ' Выбор файла 1
    '    Dim file1       As Variant: file1 = Application.GetOpenFilename("Excel файлы (*.xlsm; *.xls), *.xlsm;*.xls")
    '    If file1 = False Then Exit Sub    ' Проверка на отмену выбора файла

    ' Выбор файла 2
    Dim file2       As Variant: file2 = Application.GetOpenFilename("Excel файлы (*.xlsx; *.xls), *.xlsx;*.xls")
    If file2 = False Then Exit Sub    ' Проверка на отмену выбора файла

    Dim wb          As Workbook: Set wb = ActiveWorkbook    ' Workbooks.Open(file1)
    Dim ws1         As Worksheet: Set ws1 = wb.Worksheets("Sheet1")

    Dim wb2         As Workbook: Set wb2 = Workbooks.Open(file2)
    Dim ws2         As Worksheet: Set ws2 = wb2.Worksheets("Юр. лица")

    Dim lastRow1    As Long: lastRow1 = ws1.Cells(ws1.Rows.Count, "BC").End(xlUp).Row

    For i = 8 To lastRow1

        If ws1.Range("BC" & i).Value = "нет" Then

            Dim lastRow2 As Long: lastRow2 = ws2.Cells(ws2.Rows.Count, "C").End(xlUp).Row

            ws1.Range("AA" & i).Value = ws2.Range("C" & lastRow2 + 1).Value
            ws1.Range("AB" & i).Value = ws2.Range("D" & lastRow2 + 1).Value
            ws1.Range("BN" & i).Value = ws2.Range("E" & lastRow2 + 1).Value
        End If

    Next i

    '    wb.Save
    '    wb.Close
    wb2.Save
    wb2.Close

    Set ws1 = Nothing
    Set ws2 = Nothing
    Set wb = Nothing
    Set wb2 = Nothing
End Sub

ws2.Range("C" & lastRow2 + 1).Value

ws2.Range("C" & lastRow2 + 1)

ws2.Cells(lastRow2 + 1, "C")