Nesting For Each Statements

I got a 2 columns (A:B) with values in workbook1 (survey2.xlsm)

I want to open a sheet named according to values from column A wb1 in workbook2 (du_database2)

And I want to fill in the offset values (column B) in the aproppriate sheet

I wrote this sub for it. I am having troubles with the for each statements (how do I set them up properly?). The script itself hasn't been checked might also been wrong there.

VB:
Sub copytest()
'by J
Dim ws As Worksheet
Workbooks.Open "survey2.xlsm"
Application.Workbooks("du_database2.xlsm").Activate

[Code] .....