Всем привет, буду очень признателен за помощь.

Есть код,  который добавляет в нужный лист фотографии.

Но столкнулся с проблемой: после добавления фотографий и отправки листа
по почте, связь с фотографиями теряется и получивший человек их не
видит.

Вопрос, как разорвать связь с фотографией после ее добавления на лист.

Спасибо.

Private Sub CommandButton5_Click()
Dim shActive As Excel.Worksheet
   Dim myPath As String
   Dim myShape As Excel.Shape
   Dim myPicture As Picture
   Dim myMax As Long
   myPath = Excel.Application.GetOpenFilename(" Картинка (*.jpg), *.jpg")
   On Error Resume Next
   
 Set shActive = Sheets("Наказ")
       
   If shActive.Shapes.Count = 1 Then          
       myMax = 201            
   Else          
       For Each myShape In shActive.Shapes          
           If myShape.TopLeftCell.Column = 12 Then                
               If myMax = 0 Then
                   myMax = myShape.TopLeftCell.Row
               Else                    
                   If myShape.TopLeftCell.Row > myMax Then                        
                       myMax = myShape.TopLeftCell.Row
                   End If
               End If
           End If            
       Next myShape
           
       If myMax = 0 Then
           myMax = 253        
       Else
           myMax = myMax + 1
       End If        
   End If
       
   Set myPicture = shActive.Pictures.Insert(myPath)
   Set myShape = myPicture.ShapeRange(1)
   
   myShape.LockAspectRatio = msoTrue
   myShape.Width = 360
           
   myShape.Top = shActive.Cells(myMax, "A").Top
   myShape.Left = shActive.Cells(myMax, "A").Left
   
   On Error Resume Next
   
   Dim myRange As Excel.Range

End Sub

Всем привет.
Сразу скажу, что я новичек в excel
Посмотрел на народ в отделе, как они заходят в каждый файлик и в ручную меняют составляющие договора и понял, что нужно, что-то делать.

Задача такая:
(в примере) есть Excel "Договор" - в нем будут данные для заполнения дистрибутора (Можете нажать на кнопку "Создание письма" - создастся папка с заполненным договором)
Но важность не в переносе обычного текста, а в переносе таблицы с листа 2 "Таблица" -  в таблицу, в документе "Distr1"
(Таблица одинаковая для каждого дистрибутора, но бывает с разным количеством строк)

Так как не разбираюсь в VBA - буду признателен за пример моем файле.
В один файл не влезло
эти оба файла должны быть в одной папке.

Спасибо.