Insert picture with cell value

[aguskwzwqyi]

how to insert a picture from souce cell and store it to another cell and save with the document (not just a link) using vba userform

example

in sheet1 cell b9 to b200 i have a name of an animal and i must store it in excell file in sheet2 cell a5, b5, a7 b7 and so on because i skip one cell for numbering (a6,b6 a8,b8 and so on) assuming i have the picture of that animal in folder "D:\OneDrive\Desktop\animal"

Private Sub btn_set_Click()
Dim animal_folder As String
Dim animal_name As String
Dim animal As Pictures
Set wksheet = Sheet1
Set aktif_sheet = Worksheets("Sheet3")
Set animal_folder = "D:\OneDrive\Desktop\animal" & Sheet1(2, 9).End(xlUp).Rows.Value & ".jpg"
    end_row = aktif_sheet.Cells(Rows.Count, 1).End(xlUp).Rows + 1
    aktif_sheet.Cells(end_row, 2) = animal_folder
End Sub

i have wrote code like this but give error object required btw im new at vba that code i write, i get it from searching trough internet.

the cell used for refference that image was like this.

Book1
	A	B
5	NO	ANIMAL NAME
6	1
7	2
8	3
9	4
10	5
11	6
12	7
13	8
14	9
15	10
16	11
17	12
Sheet1

and this is place i sore the animal pictures

Book1
	A	B
8
9	1	2
10
11	3	4
12
13	5	6
14
15	7	8
16
17	9	10
18
19	11	12
Sheet2

Cell Formulas
Range	Formula
A11,A19,A17,A15,A13	A11	=B9+1
B11,B19,B17,B15,B13	B11	=A11+1

 

[ouvay]

Hi!
This sounds like a fun project lol
would you care to share your resources(images)? I'll be happy to give this a go.