将数据从一个工作簿复制到另一个工作簿

Question

我有来自extendoffice.com的代码。实际上，我需要修改以下代码，以便将复制的数据粘贴到我创建的工作簿中（例如：test.xls）。

请帮助我。预先感谢。

Sub AddNew()
    Dim xWs As Worksheet
    Dim Rng As Range
    Set Rng = Application.Selection
    Application.Workbooks.Add
    Set xWs = Application.ActiveSheet
    Rng.Copy Destination: = xWs.Range("A1")
End Sub