VBA Print sheets with differing values from second sheet

[Mark1963]

Hi
Hopefully someone can help me?
I have two sheets called 'Form' and 'Data'. I want to print multiple copies of the sheet called form with different values selected from the sheet 'Data' The range of the data is in columns A B and C. I need to post and print the the values in the cells D2, D3 and D4
As you can see the code should loop through the rows and put the values in the column on the sheet called Form.
Unfortunately it Loops through column A and changes that value but not column B or C
I assume its something obvious I've missed?

Thanks in advance

Mark

 

[Mark1963]

Editable version of the code is below

Sub Button3_Click()

Dim rep As Range
Dim Code As Variant
Dim Branch As Variant
Dim wsTarget As Worksheet
Dim wsSource As Worksheet

 
 'set up the target worksheet
  Set wsTarget = Sheets("Form")
 

'set the source worksheet
    Set wsSource = Sheets("Data")
      
For Each rep In Range("A2", Range("A" & Rows.Count).End(xlUp))
    
     Code = Range("B2:B9")
     Branch = Range("C2:C9")
          
    
    ThisWorkbook.Sheets("Form").Range("D2").Value = rep.Value
    ThisWorkbook.Sheets("Form").Range("D2").Font.Bold = True
    
    ThisWorkbook.Sheets("Form").Range("D3").Value = Code
    ThisWorkbook.Sheets("Form").Range("D4").Value = Branch
  
    With wsTarget.PageSetup
    End With
    wsTarget.PrintPreview
    
    Next

  
 
    
End Sub