Установка активной рабочей книги как той, из которой был запущен макрос

Question

Пользователь: Smartini предоставил мне немного кода

Работает полностью, как задумано, хотя я хотел бы внести небольшие изменения. Макрос копирует и вставляет данные между рабочими книгами, хотя рабочая книга, из которой я хотел бы копировать, изменяется каждый раз, всегда со случайно сгенерированным именем файла.

Я хотел бы сохранить приведенный ниже код в Персональной рабочей тетради макроса и запустить его с исходной рабочей книгой, определяемой как та, из которой был запущен макрос.

Надеюсь, я был достаточно ясен и с нетерпением жду встречи, если кто-нибудь может помочь!

Sub CopyToAnotherWorkbook()

Application.ScreenUpdating = False

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.ActiveSheet
Dim LastRow_wb%: LastRow_wb = ws.Cells(ws.Rows.Count, 
"A").End(xlUp).Row
Dim arr() As Variant
ReDim arr(0 To LastRow_wb - 1)

For i = 1 To LastRow_wb
    arr(i - 1) = ws.Cells(i, 1)
Next i

Dim wb2 As Workbook: Set wb2 = Workbooks.Open("C:\Book2.xlsx") ' <- 
Paste 
your Link to the Workbook here!

Dim ws2 As Worksheet: Set ws2 = wb2.Sheets(1)
Dim LastRow_wb2%: LastRow_wb2 = ws2.Cells(ws2.Rows.Count, 
"A").End(xlUp).Row + 1

If LastRow_wb2 = 2 Then
    LastRow_wb2 = 1
End If

ws2.Range("A" & LastRow_wb2 & ":A" & LastRow_wb2 + UBound(arr)).Value =         
WorksheetFunction.Transpose(arr)

Application.ScreenUpdating = True
wb2.Close True
Set ws2 = Nothing
Set wb2 = Nothing
Set ws = Nothing
Set wb = Nothing

End Sub