Copy & paste question in macro's

[sey]

I have a question about to copy and paste in excel.
I wrote a macro so he copy a template, but if he paste, he don't paste the pictures too. So then i uses copypicture, but then i can't insert values in the cells, what code can i use to copy bouth in one time, or another solution?

If you need more information just ask, i"m new here.

 

[sey]

Sub copypastetemplate()
    Dim bcell As Range
    Dim teller As Integer
    teller = 0
    Sheets("SETUP").Activate
    Range("begincellll").Select
    ActiveCell = ActiveCell.Offset(1, 1)

    For Each bcell In Range("Bereik")
        If IsEmpty(bcell) Then
            'bcell = blank
        Else: 'bcell = 1
            teller = teller + 1
    
            Sheets("Stuktekening gordingen").Activate
            Range("Print_Area").CopyPicture
            Sheets("Stuktekeningtemplate").Activate
           
            Range("startcel").Select
           
            ActiveCell.Offset(((teller - 1) * 50) + 1, 0).Select
            
                ActiveSheet.PasteSpecial
                
            
          
        End If
    Next bcell
  
    Sheets("SETUP").Activate
    Range("begincellll").Select
    ActiveCell.FormulaR1C1 = teller
    
End Sub [\code]
 
This is my code, with the teller, i count in another sheets how many times i need to copy and paste.
Everything works but my question starts from here : 
 Sheets("Stuktekening gordingen").Activate
            Range("Print_Area").CopyPicture
            Sheets("Stuktekeningtemplate").Activate
           
            Range("startcel").Select
           
            ActiveCell.Offset(((teller - 1) * 50) + 1, 0).Select
            
                ActiveSheet.PasteSpecial
 
I need to do .copypicture because my selection ("Print_Area"), contains images and text, and others he don't copy the images too, but with copypicture i can't write anything down anymore in this area, so is there a way to copy bouth without using . copypicture?  
 
Regards