copy a range of cells (to last row) and paste into another workbook

Hi,

I have the following code and am trying to copy a range of cells and paste into another workbook, however its only pasting one cell (not the range)

help appriciated.

Workbooks.Open Filename:=File_Name2, Local:=True

Sheets("InvestPro File").Activate
Range("B2:G2").End(xlDown).Select


Selection.Copy

wb.Activate
Sheets("Val Prices").Select
Range("A11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False