Move a worksheet to another excel

In MS-Excel activity, it is impossible to move sheets between 2 different excels. However, you can use the following Vbs for this.

Worksheets(x) Whatever number you enter instead of x will move the page in a specific order in excel.

Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = False
xlapp.DisplayAlerts = False
Set x = xlapp.Workbooks.Open("C:\Robusta\aaaa\Excel Folder\Aktif Noktalar.xlsx")
Set y = xlapp.Workbooks.Open("C:\Robusta\aaaa\Guncel Paket\Perakende_backup.xlsx") 
Set WSx = x.Worksheets(1) 
Set WSy = y.Worksheets(1)
WSy.Copy WSx 
x.Save
x.Close
y.Close