show 1 picture and a copy, but hide others (vlookup)

[Dozo2000]

Hello,

I am trying to create an A3 sticker with options via VlookUp.

It is working, but I want it to be twice on the page so I can print 2 on an A4.
It only shows me the first or the last picture, but not both..

In cells I9 and I36 is a VerticalLookUp.

Name	Picture Name
1	Picture1
2	Picture2
3	Picture3
4	Picture4

<tbody>
</tbody><colgroup><col span="3"></colgroup>

 Private Sub Worksheet_Calculate()
        Dim oPic As Picture
        Me.Pictures.Visible = False
        Sheets("B8-12  A3 ACTIE").Shapes("Dustco1").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Bullduster1").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Dustco2").Visible = True
        Sheets("B8-12  A3 ACTIE").Shapes("Bullduster2").Visible = True
        With Range("I9")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
        With Range("I36")
            For Each oPic In Me.Pictures
                If oPic.Name = .Text Then
                    oPic.Visible = True
                    oPic.Top = .Top
                    oPic.Left = .Left
                    Exit For
                End If
            Next oPic
        End With
    
    End Sub