problems with macro copy columns into another workbook

Hello,

Please can anyone help me with the attached VBA code. It works but somehow it copies only one row of data. I need it to copy all data from columns B:G

code.txt

I would appreciate your help.

Would this do the job in one step?

ActiveSheet.Range(Cells(1, 2), Cells(1, 2).End(xlDown).Offset(0, 5)).Copy Destination:=Workbooks(ThisWkBkName).Sheets("Sheet1").Range("B1")

hi,
The code I have lets me copy data when the workbook is closed...

any ideas how to make it work?