VBA Копировать изображение из элемента управления изображения UserForm в последнюю строку на основе критериев

Question

Я пытаюсь написать код, который скопирует и вставит изображение из графического окна ( Image1 ) в пользовательской форме в первую пустую строку столбца B . Если в окне изображения нет изображения, я хочу скопировать изображение с другого листа и вставить его в последнюю пустую строку столбца. Ниже приведен код, который у меня есть, но я думаю, что прошел долгий путь. Я также не могу определить изображение imagebox для копирования пасты. Любая помощь будет принята с благодарностью

Dim LastRow1 As Long, ws1 As Worksheet
Dim LastRow2 As Long, ws1 As Worksheet

Set ws1 = Sheets("Athlete Profile Picture")
    Set athimage = Me.Image1.Picture
    Set gencopy = Worksheets("DO NOT DELETE").Shapes("Picture 15").Copy
    Set genimage = ws1.LastRow2
    Set img1 = ws1.Pictures.Insert(athimage)
    Set img2 = ws1.Pictures.Insert(Worksheets("DO NOT DELETE").Shapes("Picture 15"))
LastRow2 = ws1.Range("B" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row

If img1 Is Nothing Then

    With img2
    .ShapeRange.LockAspectRatio = msoFalse
    .Top = LastRow2.Top
    .Left = LastRow2.Left
    .Width = LastRow2.Width
    .Height = LastRow2.Height
    End With

    Else

    With img1
    .ShapeRange.LockAspectRatio = msoFalse
    .Top = LastRow2.Top
    .Left = LastRow2.Left
    .Width = LastRow2.Width
    .Height = LastRow2.Height
    End With

End If