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

我是新来的编码和卓越，将不胜感激一些帮助。 我试图从一个工作簿（名称的末尾每次打开时更改）复制到具有相同名称的工作簿的数据。

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