VBA - Proste Makro wstawiające obraz o nazwie podanej w komórce z określonego folderu

Witam, proszę o pomoc
Potrzebuję makra w pracy, uczę sie sama ale mi nie wychodzi, a potrzebuję na już :/
Makro które wstawi obraz o nazwie podanej w komórce z określonego folderu.
Z góry dziękuję

A co ci makro nagrało?

Nagrywając umiem wstawić obraz, ale nie wiem jak zrobić aby to była zmienna.
Makro ogólnie ma działać w ten sposób:
dla każdej linijki z zakładki spis tworzyć nową zakładkę
w każdej nowej zakładce jest nowy numer porządkowy
numer porządkowy jest także nazwą zakładki
w każdej karcie mają być też wstawione 2 obrazy z różnych lokalizacji o nazwie takiej samej jak ten numer porządkowy.

Moje makro wygląda w tej chwili w ten sposób:

 Dim licznik As Integer
 Dim index As Integer
 For licznik = 1 To 6  
 index = index + 1

Sheets("formatka").Select
Sheets("formatka").Copy After:=Sheets(2)

ActiveSheet.Select
Range("J1").Select  'wybranie komórki J1
ActiveCell.Value = ActiveCell.Value + index

If ActiveSheet.Range("k1") <> "" Then
ActiveSheet.Name = ActiveSheet.Range("k1")
End If


Range("A4").Select

ActiveSheet.Pictures.Insert( _"C:\Users\Kamila\Desktop\Arnikowa 10D\_rysunki\M1.JPG").Select
Selection.ShapeRange.Height = 56.6929133858
Range("A10").Select
ActiveSheet.Pictures.Insert( _"C:\Users\Kamila\Desktop\Arnikowa 10D\miniatury\parter\1.JPG").Select
    
 Next licznik
  End Sub

ActiveSheet.Pictures.Insert( ActiveSheet.Range("a4").value ).Select

dziękuję, to wskazanie lokalizacji komórki a jak wskazać miejsce tzn folder z którego ma pobrać, a nie konkretny plik w tym folderze?

Proszę o poprawę kodu, bo kombinuję na różne sposoby i nadal mi nie działa :/
wyskakuje błąd: 1004 Pobranie właściwości insert klasy Pictures jest niemożliwe

      Sub Makro1()
   ' Makro1 Makro
     Dim licznik As Integer
     Dim index As Integer


   For licznik = 1 To 6
   
    index = index + 1

Sheets("formatka").Select
Sheets("formatka").Copy After:=Sheets(2)

ActiveSheet.Select
Range("J1").Select  'wybranie komórki J1
ActiveCell.Value = ActiveCell.Value + index

If ActiveSheet.Range("k1") <> "" Then
ActiveSheet.Name = ActiveSheet.Range("k1")
End If

Range("A4").Select
'sposob 1
      ' ActiveSheet.Pictures.Insert(ActiveSheet.Range("j1").Value).Select

     'sposob 2
      obraz = Cells(1, 10).Text
     ActiveSheet.Pictures.Insert("C:\Users\Kamila\Desktop\test" & obraz & ".jpg").Select
  'sposób 3
  '  ActiveSheet.Pictures.Insert("C:\Users\Kamila\Desktop\test" & ActiveSheet.Range("j1").Value).Select


Next licznik

End Sub

Zrobiłam to naokoło, ale działa :)
można zamknąć wątek