.Paste is a method of worksheet (and few other types of objects), it is not a method of Range so why you get the error.
To copy a range you don't need to select that range prior to copy.
Try this:
Code:
Dim ws1 As Worksheet
Dim ws2 As Worksheet
'-- assumed both workbooks already opened
Set ws1 = Workbooks("BookName1.xls").Worksheets("Sheet1")
'-- or if yourcode is in the Active workbook:
' Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = Workbooks("BookName2.xls").Worksheets("Sheet1")
'-- only need specify the first cell of destination
ws1.Range("A1:E1").Copy Destination:=ws2.Range("A1")
The last line above is the simplest way, however it can be replaced by:
Code:
ws1.Range("A1:E1").Copy
ws2.Paste Destination:=ws2.Range("A1")
or as below (not recommended):
Code:
Workbooks("BookName2.xls").Activate
ws2.Activate
ws2.Range("A1").Select
ws2.Paste