Копирование данных из одной рабочей книги в другую

Question

У меня есть код, который взят из exteoffice.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