从类似命名的工作簿复制到命名工作簿

Question

我是编码和擅长的新手，非常感谢一些帮助。我试图将数据从一个工作簿（其名称的末尾每次打开时更改）复制到具有相同名称的工作簿。

Sub Macro_1()
Dim x As Workbook
Dim y As Workbook

For Each x In Application.Workbooks

If x.Name Like "Gonzales*" Then .Activate
Range("A3:A13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Nates Excel.xlsm").Activate
Range("E2").Select
ActiveSheet.Paste

Next x