a = []
while True:
    try:
        a.append(input())
    except EOFError:
        break

print(', '.join(a))

Workbooks(StartKA).Sheets(1).Unprotect Range("A5").Value

Workbooks(StartKA).Sheets(1).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _        
    , AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
    llowDeletingRows:=True
Range("A5").Value

Option Explicit

Sub Кнопка10_Щелкнуть()
Dim FD As FileDialog
Dim ItogWb As Workbook
Dim ItogWsh As Worksheet
Dim iFileName As String
Dim iShortFileName As String
Dim iLastRow As Long
    
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Filters.Clear  'удаляет предопределенные фильтры
        .Filters.Add "Microsoft Excel files", "*.xls"
        .Filters.Add "All files", "*.*"
        .AllowMultiSelect = False   'если True-то выбор нескольких файлов
        .InitialFileName = ThisWorkbook.Path
        .Title = "Открытие документа с исходными данными"
        .ButtonName = "Открыть"
        If .Show = False Then
            MsgBox "Вы не указали нужный файл!", 48, "Ошибка"
            Exit Sub
        Else
        iFileName = .SelectedItems(1)
        iShortFileName = Right(.SelectedItems(1), Len(.SelectedItems(1)) _
- InStrRev(.SelectedItems(1), "\"))
            'If Right(UCase(iFileName), 4) = ".XLS" Then iFileName = Left(iFileName, Len(iFileName) - 4)
        End If
    End With
    Set FD = Nothing
    
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    
        iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
    
    Set ItogWb = Workbooks.Open(Filename:=iFileName, UpdateLinks:=False, _
                                                        ReadOnly:=True)
    Set ItogWsh = ItogWb.Worksheets("Лист1")
    ThisWorkbook.Activate
    With ItogWsh
        Cells(iLastRow + 1, 1) = Cells(iLastRow, 1).Value + 1
        Cells(iLastRow + 1, 2).Value = .Cells(5, 17)
        Cells(iLastRow + 1, 3) = .Cells(5, 32)
        Cells(iLastRow + 1, 4) = .Cells(1, 38) & .Cells(1, 43) & .Cells(2, 43)
        Cells(iLastRow + 1, 5) = .Cells(5, 7)
        Cells(iLastRow + 1, 6) = .Cells(5, 10)
        Cells(iLastRow + 1, 7) = .Cells(5, 46)
        Cells(iLastRow + 1,  = .Cells(1, 48)
        Cells(iLastRow + 1, 9) = .Cells(30, 6)
       
    End With
    ItogWb.Close SaveChanges:=False
    
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub