Копирование с использованием VBA

Question

Привет, я новичок в VBA. У меня есть код, который должен скопировать столбец из рабочей книги A в рабочую книгу B. Похоже, что произошла ошибка. Просьба помочь

Вот мой код

Sub try()

Dim x As Workbook
Dim y As Workbook

Set x = Workbooks.Open("C:\Users\alfred.anton.s.mateo\Documents\TaskTracker_2\TaskTracker_trial\TASK_TRACKERV5 - A")
Set y = Workbooks.Open("C:\Users\alfred.anton.s.mateo\Documents\Certificate\Consolidate")


'Transfer values from x to y
y.Sheets("STORES").Range("J7").Value = x.Sheets("WeekSummary").Range("J7:J45")
x.Close

End Sub

Answer 1

x.Sheets("WeekSummary").Range("J7:J45").Copy
y.Sheets("STORES").Range("J7").PasteSpecial xlPasteValues, operation:=xlNone
x.Close