How To Copy A Range To Another Work Book

I am trying to copy a range from one workbook to another book sheet with the below code. But its giving error.Can any body fix the below code.

Dim rng1, rng2 As Range
Set rng1 = ThisWorkbook.Sheets(1).Range("A1")

'Create a new work book
Dim xlapp As Object 'Excel.Application
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True

' Add a new workbook
Dim xlbook As Object 'Excel.Workbook
Set xlbook = xlapp.Workbooks.Add......................