Как перенести данные из одной книги в другу при помощи VBA

Всем привет, необходимо из одной книги скопировать поле и перенести его в другую книгу, пока что только получилось скопировать данные, но перенести не выходит никак

Sub CopyPasTeSAPoriginToInfoPivot()
With Workbooks("SAPorigin.xls")
    Range("A2:AR3545").Select
    Selection.Copy
End With

End Sub