Оптимизация макроса

Question

Здравствуйте, у меня есть следующие макросы:

Sub As_Of_Analysis_Sorting2()
    Dim lr As Long, lr2 As Long, r As Long
    Set Sh1 = ThisWorkbook.Worksheets("Sice")
    Set Sh2 = ThisWorkbook.Worksheets("Copy")
    Sh1.Select

    Sh2.Cells(1, 1).Value = "Kr"
    Sh2.Cells(1, 2).Value = "Tr"

            x = x + 1
        End If
    Next r
    Sh2.Select
End Sub

Здесь я беру 2 определенных c столбца и распечатываю их на другом листе. Следующий:

Sub ImportData_Click()
    Dim objExcel2 As Object, arr As Variant

    Set objExcel2 = CreateObject("Excel.Application")
    ' open the source workbook and select the source sheet
    With objExcel2.Workbooks.Open("C:\Users\Macro.xlsm")
        ' copy the source range to variant array
        arr = .Worksheets("Copy").Range("A:B").Value
        ' close the source workbook
        .Close savechanges:=False
    End With

    ' select current workbook and paste the values
    ThisWorkbook.Worksheets("Aktuel").Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

    ' close the source application instance
    objExcel2.Quit
    Set objExcel2 = Nothing

    ActiveWorkbook.Save


End Sub

Здесь я открываю новую рабочую книгу и оттуда получаю данные из предыдущей рабочей книги. Я сэкономил много времени, но все же упал, есть еще чем заняться. Как вы думаете, возможно ли, что я создаю макрос во втором документе, который не только копирует данные из первого, но и обновляет первую рабочую книгу, выполняет первый макрос в первой рабочей книге, чтобы я мог получить спецификацию c столбцы, которые я хочу? Новый макрос во втором документе должен запускаться с кнопкой активации при открытии документа.