Private Sub Shurshit()

    Dim wbout As Workbook   ' книга - получатель
    Dim wbin As Workbook    ' книга - источник
    Dim arr, arr1   ' массивы, через которые полетят данные
    
    Set wbout = ActiveWorkbook  ' детерминирована книга получатель
    Set wbin = Workbooks.Open(ActiveWorkbook.Path & "\Input.xls")  ' открываем книгу источник

    arr = wbin.Sheets(1).Range("a:a")      ' arr получает значение от ("a:a") источника
    arr1 = wbin.Sheets(1).Range("c:c")
    wbin.Close                  ' массивы заполнены данными, источник можно закрывать
    wbout.ActiveSheet.Range("a:a") = arr   ' выводим значниея получателю
    wbout.ActiveSheet.Range("c:c") = arr1

End Sub