Bild in Tabelle...wir nur ein Wert reingeschrieben

Sub UrkGrundkursDruck()
Application.ScreenUpdating = False
Dim pct As Picture
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("DBUrkundeGrundkurs")
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
Range("UrkGrundkurs!NameB") = wks.Cells(iRow, 2) & " " & wks.Cells(iRow, 1)
Range("UrkGrundkurs!HundB") = wks.Cells(iRow, 3)
Range("UrkGrundkurs!VereinB") = "von " & wks.Cells(iRow, 5) & " bis " & wks.Cells(iRow, 6)
If wks.Cells(iRow, 7).Value = "W" Then
Range("UrkGrundkurs!PunkteB") = "Der Hundeführerin"
Else: Range("UrkGrundkurs!PunkteB") = "Der Hundeführer"
End If
Range("UrkGrundkurs!BeurteilungB") = LoadPicture("c:\UrkundenManager\Bilder\" & wks.Cells(iRow, 4))
Range("UrkGrundkurs!DatumB") = "Schwaig" & ", den " & Date
'Sheets("UrkGrundkurs").PageSetup.PrintQuality = 1200
Sheets("UrkGrundkurs").PrintOut Copies:=1
iRow = iRow + 1
Loop
Application.ScreenUpdating = True
End Sub