Overførsel af billede

Jeg har følgende makro:

Sub test()
Dim PR As Workbook, WTK As Worksheet, TK As Workbook, RK As Double
Workbooks.Open FileName:="F:\JESPER\ll\prisliste.xls"
Set PR = Workbooks("prisliste.xls")
Set TK = Workbooks("testkalk.xls")
Set WTK = TK.Sheets("Testkal")
PR.Sheets(1).Select
RK = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row + 1
  PR.Sheets(1).Range("B" & RK) = WTK.Range("C4")
  PR.Sheets(1).Range("C" & RK) = TK.Sheets("Jytte").Range("C3")
  PR.Sheets(1).Range("D" & RK) = TK.Sheets("Jytte").Range("B4")
  PR.Sheets(1).Range("E" & RK) = TK.Sheets("Jytte").Range("F4")
  PR.Sheets(1).Range("F" & RK) = TK.Sheets("Jytte").Range("B7")
  PR.Sheets(1).Range("G" & RK) = TK.Sheets("Jytte").Range("B8")
  PR.Sheets(1).Range("H" & RK) = TK.Sheets("Jytte").Range("B9")
  PR.Sheets(1).Range("A" & RK) = TK.Sheets("Jytte").Range("A15")
  PR.Save
  PR.Close
End Sub

Som overfører data til et andet regneark.

Jeg vil også gerne have den til at overføre et bilede som er i arket "testkal" som hver gang kan have et forskelligt navn.

Billedet skal indsættes som de andre data - dvs. i en ny linie hver gang. Feltet hvor billedet skal være er i kolonnen "I".

Hvad skal jeg have tilføjet i makroen?