Вставка данных из одного Excel файла в другой - VB

Sub Workbook_Open()
Dim i As Integer
Dim t As String
Dim a As Variant
Dim f As Object
Dim x As Workbook
Dim expath As String
Dim xlAPP As Excel.Application
Dim xlBook As Excel.Workbook
Dim WS As Excel.Worksheet

Dim lr&, wb As Workbook, lb As Workbook

Set f = CreateObject("scripting.filesystemobject").OpenTextFile("C:\TEMP\77.txt")
t = f.readline
i = 0

Do
  a = Split(t, ";")

  Worksheets.Item(1).Columns("A:D").ColumnWidth = 14
  Worksheets.Item(1).Columns("B").NumberFormat = "0.00"

  Worksheets.Item(1).Cells(i + 1, 1).Value = a(0)
  Worksheets.Item(1).Cells(i + 1, 2).Value = a(1)
  Worksheets.Item(1).Cells(i + 1, 3).Value = a(2)
  Worksheets.Item(1).Cells(i + 1, 4).Value = a(3)
 
  t = f.readline
  i = i + 1
Loop Until f.atendofstream

f.Close
Set f = Nothing

ChDir "C:\TEMP\"

With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With

Set xlAPP = CreateObject("Excel.Application")
xlAPP.Visible = False
Set xlBook = xlAPP.Workbooks.Add(xlWBATWorksheet)
xlBook.SaveAs ("C:\TEMP\test.xlsx")
xlBook.Close True
Set xlBook = Nothing

Range("A1:F52").Select
Selection.Copy
Workbooks.Open "C:\TEMP\test.xlsx"
Workbooks("test.xlsx").Activate
Range("A1").Select

ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close

With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With

End Sub